Выгрузка в excel по запросу через delphi

begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0 ))+'1.xlsx');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].name := '1';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['1'];
index:=3;
 
for i:=1 to DBGrid2.DataSource.DataSet.RecordCount do
begin
for j:=1 to DBGrid2.FieldCount do
sheet.cells[index,7]:=DBGrid2.fields[2].asstring  ;
sheet.cells[index,15]:=DBGrid2.fields[9].asstring  +' ('+  DBGrid2.fields[10].asstring + ')';
sheet.cells[index,8]:=DBGrid24.fields[2].asstring    ;
sheet.cells[index,9]:=DBGrid24.fields[3].asstring    ;
sheet.cells[index,10]:=DBGrid24.fields[4].asstring    ;
sheet.cells[index,11]:=DBGrid24.fields[5].asstring    ;
inc(index);
DBGrid2.DataSource.DataSet.Next;
DBGrid24.DataSource.DataSet.Next;
end;

  query.sql.text:='select Family, Name, Phone from Table where Family='+QuotedSTR(Edit1.Text);
  query.Open;
  while not query.eof do begin
     страница_эксель[X,Y]:=query.Fileds[0].Value;
     страница_эксель[X+1,Y]:=query.Fileds[1].Value;
     страница_эксель[X+2,Y]:=query.Fileds[2].Value;
     query.next;
  end;

procedure TForm16.Button1Click(Sender: TObject);
var excelapp,sheet:variant ;
index: integer  ;
ADOQuery:TADOQuery;
 
begin
 
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0 ))+'1.xlsx');
ExcelApp.Visible := true;
//ExcelApp.WorkBooks[1].WorkSheetS[1].name := '1';
//sheet:=ExcelApp.WorkBooks[1].WorkSheets['1'];
//index:=3;
        ADOQuery.SQL.Clear;
        ADOQuery.sql.text:='select id, holename from Ho where id='+  QuotedSTR(Edit1.Text);
        ADOQuery.Open;
        while not ADOQuery.eof do begin
        sheet.cells[7,7]:=ADOQuery.Fields[0].Value;
        ADOQuery.next;
        end;
//inc(index);
 
end;

procedure TForm16.Button1Click(Sender: TObject);
var excelapp,sheet:variant ;
index: integer  ;
 
adoquery8:TADOQuery;
 
begin
 
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0 ))+'1.xlsx');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheetS[1].name := '1';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['1'];
index:=3;
  adoquery8.close;
  adoquery8.sql.clear;
  adoquery8.Connection:= ADOConnection1 ;
  adoquery8.sql.add('select id, lot from lot ');
  adoquery8.sql.text:='select id, lot from lot where id='+  QuotedSTR(Edit1.Text);
  adoquery8.Open;
 
        while not adoquery8.eof do begin
        sheet.cells[index,7]:=adoquery8.Fields[0].Value;
        sheet.cells[index,8]:=adoquery8.Fields[1].text;
        adoquery8.next;
        end;
inc(index);
 
 
end;