Lsitbox Einträge in Stringlist übertragen

[s-off]

Hallo,

z.B. so:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   lstData: TStringlist;
Begin
   lstData := TStringlist.Create;
   Try
      lstData.AddStrings(ListBox1.Items);
      //Mache etwas mit der Stringliste
   Finally
      FreeAndNil(lstData);
   End;
End;

Edit: dummen Fehler korrigiert