[Delphi+excel] - недостаточно памяти для завершения операции

procedure TForm17.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Form17.Edit1.Text:=Form17.OpenDialog1.FileName;
end;
 
procedure TForm17.FormCreate(Sender: TObject);
begin
Ap:= CreateOleObject('Excel.Application');
end;
 
procedure TForm17.BitBtn2Click(Sender: TObject);
var
i,j, r2 : integer;
otd, group,sotr : integer;
ocheck, scheck, gcheck : integer;
begin
Ap.Workbooks.Open(edit1.Text);     ///открываем книгу
 
 
//добавим данные об отделах
 
r2:=2;
 While ap.cells[7, r2].value<>'' do
 begin
   //добавим отдел
  Datamodule3.ADOTable1.First;
  ocheck:=0; //флаг
  for  i := 1 to datamodule3.ADOTable1.RecordCount do
  begin
   if datamodule3.ADOTable1.FieldByName('filial').Value=ap.cells[8,r2].value then
   begin
    ocheck:=1;
    otd:= DataModule3.adotable1.fieldbyname('id_otdel').value;
   end;
   DataModule3.ADOTable1.Next;
  end;
  if ocheck=0 then
  begin
     with DataModule3.ADOTable1 do
    begin
     Insert;
     FieldByName('filial').AsString:=ap.cells[8,r2].value;
     FieldByName('naimen').AsString:='центральный';
     Post;
    end;
    otd:=DataModule3.ADOTable1.FieldValues['id_otdel'];
  end;
 
  //Добавим сотрудника
  scheck:=0;
  i:=1;
  DataModule3.ADOTable4.First;
  for i:=1 to DataModule3.ADOTable4.RecordCount do
  begin
   if DataModule3.ADOTable4.FieldByName('fio').Value=ap.cells[7,r2].value then
   begin
    scheck:=1;
    sotr:=DataModule3.ADOTable4.FieldByName('id_sotr').Value;
   end;
   DataModule3.ADOTable4.Next;
  end;
  if scheck=0 then
  begin
   with DataModule3.ADOTable4 do
    begin
     insert;
     FieldByName('fio').AsString:=ap.cells[7,r2].value;
     FieldByName('id_otdela').AsInteger:=otd;
     FieldByName('kab').AsInteger:=ap.cells[9,r2].value;
     FieldByName('dolz').AsString:=ap.cells[6,r2].value;
     Post;
    end;
    sotr:=DataModule3.ADOTable4.FieldByName('id_sotr').Value;
  end;
 
  //сохраняем группу техники (group)
   gcheck:=0;
  i:=1;
  DataModule3.ADOTable3.First;
  for i:=1 to DataModule3.ADOTable3.RecordCount do
  begin
   if DataModule3.ADOTable3.FieldByName('naimen').Value=ap.cells[7,r2].value then
   group:=DataModule3.ADOTable3.FieldByName('naimen').Value;
   end;
 
 
   //добавим технику
   With  datamodule3.ADOTable5 do
   begin
    Insert;
    FieldByName('id_inv').AsString:=ap.cells[1,r2].value;
    FieldByName('sn').AsString:=ap.cells[2,r2].value;
    FieldByName('id_group').AsInteger:=group;
    FieldByName('id_sotr').AsInteger:=sotr;
    FieldByName('date_create').AsDateTime:=ap.cells[3,r2].value;
    FieldByName('date_use').AsDateTime:=date;
    post;
   end;
 
   r2:=r2+1;
 end;
 
 
 
end;