Jak v Delphi exportovat horní lištu s nazvy s Dbgrid ?

Zravím , mam dotaz ohledně delphi
Mam zde dbgrid a přes button a script do něj vypíšu hodnoty z SQL

Var
i: integer;
str: string;
stl: TStringList;
begin

adoQuery1.SQL­.Clear;
adoQuery1.SQL­.Add(‚select datum, sum(celkem) from tabulka1 group by datum ;‘);
adoQuery1.Active := True;

stl:= TStringList.Create;
Try
With DBGrid1.DataSou­rce.DataSet Do
begin
First;
while not Eof do
begin
str:= ‚;‘+Fields[0]­.AsString+‚;‘;
for i:= 1 to FieldCount-1 do
str:= str+‚;‘+Fields[i]­.AsString+‚;‘;
sstl.Add(str);
Next;
end;
First;
end;
stl.SaveToFile(‚C:\da­ta\test.csv‘);
Finally
stl.Free;
End;

výsledkem je že se mi exportuje csv kde mam vypsaný datum a částky ale už mi chybí ten první řádek jakoby popisy

datum částka // tyto řádky
13.1.2019 4000

prosím jak to doplnit?