problem mit Zeilenumbruch bzw Ausgabe

[inherited]

Hm, ich schlage vor es umfangreicher zu machen (Sorry so bin ich )
Du brauchst: ein Edit(Edit1), darüber eine ListBox(ListBox1), neben dem Edit einen button(Button1), aufschrift "Add!"
Ein weiteres Edit-Feld (edit2) für die Anzahl der rauszusuchenden Lieder, eine weitere ListBox (ListBox2) und einen zweiten Button (Button2)(Aufschrift 'Generieren')

Delphi-Quellcode:

procedure TFormX.FormCreate;(Sender: TObject);
begin
  randomize;
end;

procedure TFormX.Button1Click(Sender: TObjct);
begin
  if Edit1.Text<>'' then
  begin
    ListBox1.Items.Add(Edit1.Text);
    Edit1.text:='';
  end;
end;

procedure TFormX.Button2Click(Sender: TObject);
begin
  for i := 1 to StrToInt(Edit2.Text) do
  begin
    ListBox2.Items.Add(ListBox1.Items[random(ListBox1.Items.Count)];
  end;
end;

Alle Codes Ohne Gewähr