Выгрузка в Excel

dtm.qryRepJournal.First
for i:=7 to dtm.qryRepJournal.RecordCount+6 do
  begin
    SRep.Cells[i,1]:=dtm.qryRepJournal.Fields.Fields[0] as string;
    SRep.Cells[i,2]:=dtm.qryRepJournal.Fields.Fields[1] as string;
    SRep.Cells[i,3]:=dtm.qryRepJournal.Fields.Fields[2] as string;
    SRep.Cells[i,4]:=dtm.qryRepJournal.Fields.Fields[3] as string;
    SRep.Cells[i,5]:=dtm.qryRepJournal.Fields.Fields[4] as string;
                                       ...
    SRep.Cells[i,33]:=dtm.qryRepJournal.Fields.Fields[32] as string;
    SRep.Cells[i,34]:=dtm.qryRepJournal.Fields.Fields[33] as string;
    SRep.Cells[i,35]:=dtm.qryRepJournal.Fields.Fields[34] as string;
    SRep.Cells[i,36]:=dtm.qryRepJournal.Fields.Fields[35] as string;
    SRep.Cells[i,37]:=dtm.qryRepJournal.Fields.Fields[36] as string;
    dtm.qryRepJournal.Next
  end;

var f:textfile;s:string;
...
assignfile(f,'file.csv');
rewrite(f);
dtm.qryRepJournal.First
for i:=7 to dtm.qryRepJournal.RecordCount+6 do
  begin
s:='';
for j:=0 to dtm.qryRepJournal.fielcount-1 do
if j<dtm.qryRepJournal.fielcount-1
s:=s+dtm.qryRepJournal.fields[j].asstring+';'
else
s:=s+dtm.qryRepJournal.fields[j].asstring;
writeln(f,s);
dtm.qryRepJournal.Next
end;
closefile(f);
shellexec(...);