AssignFile wie geht das genau?

[Feuerwehrmann90]

also ich hab jetzt speicher gemacht sie code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zeile,zeile1,zeile2,zeile3,zeile4:string;
datei:textfile;
i:integer;
begin
try

AssignFile(datei,'D:\monat.txt');
 Rewrite(datei);

        for i:=1 to 51 do
                begin
                zeile:=SG1.Cells[0,i];
                Zeile1:=SG1.Cells[1,i];
                Zeile2:=SG1.Cells[2,i];
                Zeile3:=SG1.Cells[3,i];
                Zeile4:=SG1.Cells[4,i];
                WriteLN(datei,zeile1,zeile2,zeile3,zeile4);
                end;
        closeFile(datei);
except;
  ShowMessage('FEhler beim speichern');
end;
end;