Lsitbox Einträge in Stringlist übertragen

[Muetze1]

Delphi-Quellcode:

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