ListBox Einträge der TStringList zuweisen?

[AlexII]

Hab das so gemacht:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
    s1,s2,s3,s4: String;
begin
List2.Clear;
//showmessage(listbox1.Items.Strings[0]);
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];

List2.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
end;
List2.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
end;

Funktioniert wunderbar.