Показать значения полей вместо индексов

var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'Пациенты.xlsx');
ExcelApp.Visible := false;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Лист 1';
for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,1]:=row+1;
end;
ExcelApp.Visible := True;

var
  ExcelApp : variant;
  row :integer;
  col:integer;
begin
  dbgrid1.DataSource.DataSet.First;
  ExcelApp:=CreateOleObject('Excel.Application');
  try
    ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'Пациенты.xlsx');
    ExcelApp.Visible := false;
    ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Лист 1';
    for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do begin
      for col := 0 to DBGrid1.Columns.Count-1 do begin
        ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2, col+2].value := dbgrid1.DataSource.DataSet.Fields[col].AsString;
        ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2, 1] := row+1;
      end;
      dbgrid1.DataSource.DataSet.Next; //<-----
    end;
    ExcelApp.Visible := True;
  except
    on EOLEException do
      ExcelApp.Quit;
  end;
  ExcelApp := Unassigned;
end;