StringGrid spalte in .txt

[SaFu]

Wie in der Überschrift versuche ich eine Spalte vom StringGrid in eine txt zu speicher funzt soweit auch.

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
var sSpalte1Text: String;
       i:integer;
       Datei :Textfile;
begin
  AssignFile(datei,'c:\Test.txt');
  try
    Rewrite(datei);
        for i:=1 to (StringGrid1.RowCount - StringGrid1.FixedRows) do
              begin
                sSpalte1Text:=(StringGrid1.Cells[1,i]);
                Write(datei,sSpalte1Text);
              end;
        closeFile(datei);
  except;
    MessageDlgPos7('Fehler beim speichern',mtInformation,[mbOk],self);
  end;
end;

Jetzt werden die Einträge aber alle aneinander gehängt. muss ich das Zeile für Zeile machen und wie kann die Doppelte einträge überspringen oder am besten wäre wieder aus der txt löschen??

Hoffe mir kann jemand helfen