schreibt weniger zeilen in file als angeführt

[Molzer]

Ich hänge an ein bestehendes File Zeilen an, mein Problem dabei ist,
dass er bei for i:=to 25 nicht 25 Zeilen reinschreibt, wenn ich to 30 nehme schreibt er
genau so viele Zeilen wie bei 25 und bei 40 schreibt er wieder ein paat mehr..

Delphi-Quellcode:

procedure TForm1.HBtClick(Sender: TObject);
begin
if opendialog1.execute then
begin
  assignfile(f, opendialog1.filename);
  append(F);
    writeln(F,leer);
     Writeln(F,CDAnzeige.Cells[0,1]+'|',CDAnzeige.Cells[1,1]);
     Writeln(F,CDAnzeige.Cells[2,1]+'|',CDAnzeige.Cells[3,1]+'|',CDAnzeige.Cells[4,1]);
      Writeln(f,Entlehner.Cells[1,1]+'|',Entlehner.Cells[2,1]+'|',Entlehner.Cells[3,1]+'|',
                Entlehner.Cells[4,1]+'|',Entlehner.Cells[5,1]+'|',Entlehner.Cells[6,1]);
       for i:=1 to 25 do
       Writeln(F,TrackAnzeige.Cells[0,i]+'|',TrackAnzeige.Cells[1,i]+'|',TrackAnzeige.Cells[2,i]+'|',TrackAnzeige.Cells[3,i]);
       end;