Заголовок DBgrid в цикле

begin
saveDialog1.Filter :='Тестовый файл (*.txt)|*.txt';
if SaveDialog1.Execute then
 
   fn:=saveDialog1.FileName;
    assignfile(f,fn);
if fn<>'' then
Rewrite(f);
if FileExists(fn)  then
  begin
ADOTable1.First;
for i:=1 to ADOTable1.RecordCount do
     begin
  Buf:=ADOTable1.FieldByName('ФИО').AsString + ' ' +
  ADOTable1.FieldByName('Год_рождения').AsString + ' '+
  ADOTable1.FieldByName('Школа').AsString+ ' '+
  ADOTable1.FieldByName('Класс').AsString;
  Writeln(f,Buf);
  ADOTable1.Next;
     end;
CloseFile(f);
 
  end;
end;

// àáñîëþòíîå ïåðåìåùåíèå
procedure DSMoveTo(ds: TDataSet; index: integer);
begin
  ds.MoveBy(index-ds.RecNo);
end;
// íå ïóñòîé äàòà ñåò
Function NotEmptySet(inSet:TDataSet): boolean;
begin
  if not inSet.Active then Result:=false else
  Result := Not (inSet.Bof and inSet.eof);
end;
 
// àáñîëþòíàÿ ñòðîêà
function strabs(s:variant):string;
begin
  if s=null then result:='' else result:=s;
end;
// äàòàñåò â ôàéë
procedure DStoTextFile(ds:TDataSet; filePath:string);
var f: TextFile; i,p:integer;
begin
  if not NotEmptySet(ds) then exit;
  assignfile(f,filePath);
  Rewrite(f);
  ds.DisableControls;
  p:=ds.RecNo;
  ds.First;
  repeat
    for i:=0 to ds.FieldCount-1 do
      write(f,strabs(ds.Fields.Fields[i].Value)+' ');
    writeln(f);
    ds.Next;
  until ds.Eof;
  CloseFile(f);
  DSMoveTo(ds,p);
  ds.EnableControls;
end;
 
// пример
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then begin
    DStoTextFile(AdoTable1,SaveDialog1.FileName);
  end;
end;

// абсолютное перемещение
procedure DSMoveTo(ds: TDataSet; index: integer);
begin
  ds.MoveBy(index-ds.RecNo);
end;
// не пустой дата сет
Function NotEmptySet(inSet:TDataSet): boolean;
begin
  if not inSet.Active then Result:=false else
  Result := Not (inSet.Bof and inSet.eof);
end;
 
// абсолютная строка
function strabs(s:variant):string;
begin
  if s=null then result:='' else result:=s;
end;