Probleme mit Speichern...

[Sataan93]

Also ich hab das problem, dass der mir die zeilen im String nicht so speichert wie sie gespeichert werden müssen: statt Name;Vorname;Adresse;
Name;Vorname;Adresse; macht es
Vorname;Adresse;Name;Vorname;Adresse..

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
i,j: integer;
begin

  if savedialog1.Execute=true then
    begin
      assignfile (textdatei, savedialog1.FileName);
      rewrite (textdatei);
      for i:=1 to StringGrid1.Rowcount-1 do
        for j:=1 to StringGrid1.ColCount-1 do
          begin
            If j = StringGrid1.ColCount then
            writeln(textdatei,stringgrid1.cells[j,i]+';')
            else
           write (textdatei,stringgrid1.cells[j,i]+';');
          end;
     closefile (textdatei);
    end;
end;

ich finde nur den Fehler nicht...