DBGRID export nach csv mit Titel

[Luckner]

Hallo,
habe hier eine Routine gefunden, mit der ich die Datensätze aus einem DBGrid in csv-Datei exportieren kann. Das klappt ohne Titel auch gut. Wie kann ich die Titel übernehmen? Hier die Procedure:

Delphi-Quellcode:

procedure TFrameArtikel.ButtonCsvExportClick(Sender: TObject);
  const
  Delim = ';';
var
  S: String;
  I: Integer;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('c:\temp\Artikel.csv', fmCreate);
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Open;
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Last;
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.First;

  while not DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Eof do
  begin
    S := '';

    for I := 0 to JvDBGridArtikelCSV.Columns.Count - 1 do
      S := S + TColumn(JvDBGridArtikelCSV.Columns[I]).Field.AsString + Delim;

    S := S + CHR(13);
    Stream.Write(PChar(S)^, Length(S));
    DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Next();
  end;

  Stream.Free();
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Close;
end;

Danke.