String mit Leerzeichen verursacht Chaos???

[AlexII]

Hallo,

ich speichere wie folgt die Einträge einer ListBox in eine txt-Datei:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
    s1,s2,s3,s4: String;
    List: TStringList;
begin
  List:=TStringList.Create;
  try
    for i:=0 to ListBox1.Count-1 do
    begin
    s1:=ListBox1.Items.Strings[i];
    s2:=ListBox2.Items.Strings[i];
    s3:=ListBox3.Items.Strings[i];
    s4:=ListBox4.Items.Strings[i];
    List.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
    end;
    List.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
 finally
    List.Free;
 end;
end;

Befindet sich allerdings in einem der Einträge der ListBox ein Leerzeichen wird das nächstfolgende Wort nicht mehr z.B. dem s1-String zugewiesen, sondern dem s2. Im s2 dem s3. Wer weiß woran es liegt?