Delphi i Txt file

[popmilan76]

Kako pomocu delphi koda da napravim txt fajl,ik to ovim rasporedom
#racun
#operater
#artikli
........................(podaci iz dbgrida)

ovo sam uradio sto se tice dbgrida,ali mi trebaju prve tri linije fiksne.....

evo koda za dbgrid,i gde tu da uglavim da mi izacu tri linije i posle da nastavi dbgrid.....

var
BackUpFile : TextFile;
i: Integer;
cLine : string;

begin
try

RepRacun := TRepRacun.create(nil);
AssignFile(BackUpFile, 'c:\'+frmprodaja.edit6.Text+'.txt');
Rewrite(BackUpFile);
frmprodaja.DBGrid1.DataSource.DataSet.First;

while not frmprodaja.DBGrid1.DataSource.DataSet.Eof do
begin
cLine := '';
for i := 0 to frmprodaja.DBGrid1.FieldCount - 1 do
begin
cLine := cLine+frmprodaja.DBgrid1.fields[i].asString+' ';
end;
WriteLn(BackUpFile, cLine);
frmprodaja.DBGrid1.DataSource.DataSet.Next;
end;

CloseFile(BackUpFile);