Перенос отфильтрованных строк из DBGrid в Exel

form2.AdsTable1.Filter:='IZGOT2='+chr(39)+trim(form2.Combobox1.Text +' '+  Form2.Combobox2.Text)+chr(39);
             form2.AdsTable1.Filtered:=true;

var
ExcelApp : variant;
row :integer;
col:integer;
begin
form2.DBGRID1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'reestr.xls');
ExcelApp.Visible := false;
for row := 0 to form2.DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col := 0 to form2.DBGrid1.Columns.Count-1 do
 
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+4,col+2].value:=form2.DBgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+4,1]:=row+1;
end;
 
form2.Dbgrid1.DataSource.DataSet.Next;
ExcelApp.Visible := True;
end;
end;

with form2.AdsTable1 do begin
  Filtered:=False;   
  Filter:='IZGOT2='+chr(39)+'март 2023'+chr(39);
  Filtered:=True;
end;

procedure TForm2.Button6Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
  form2.DBGRID1.DataSource.DataSet.First;
  ExcelApp:=CreateOleObject('Excel.Application');
  ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'reestr.xls');
  ExcelApp.Visible := false;
  row := 0;
  while not form2.DBGrid1.DataSource.DataSet.eof do begin
    for col := 0 to form2.DBGrid1.Columns.Count-1 do begin
       ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+4,col+2].value:=form2.DBgrid1.DataSource.DataSet.Fields[col].AsString;
       ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+4,1]:=row+1;
    end;
    form2.Dbgrid1.DataSource.DataSet.Next;
    inc(row);
  end;
ExcelApp.Visible := True;
end;