Listtbox- kopieren ?

[Lamiadon]

hallo,
ich habe ein ähnliches problem...
ich versuche grade einen PW-Generator zu erstellen. Mit Klick auf einen der 3 Buttons soll die PW-Liste, die in einer Linkbox angezeigt wird, direkt in die Zwischenablage kopiert werden...ich habe es bereits mit mehreren Dingen probiert, aber bei der Methode aus diesem Thread hat es auch nicht geklappt, keine Fehlermeldung oder so, ich klicke einfach auf "generieren und Clipboard" mit der Funktion, ein Wort mit 10 Zeichen aus Groß- und Kleinbuchstaben zu generieren und dieses dann ins Clipboard zu übernehmen. Dann wird das Wort generiert und auch in der Listbox angezeigt, aber nicht ins Clipboard übernommen. Ich habe es ausprobiert indem ich versuchte, es im Windows-Editor wieder einzufügen, aber es hat nicht geklappt...bin absoluter Delphi-Noob, hoffe aber trotzdem auf Hilfe


edit: aktueller quellcode

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   AnzZei : Integer;
   AnzPW : Integer;
   s1 : Tstringlist;
   i : Integer;
   begin
   listbox1.items.Clear;
   listbox1.Items.add (GeneratePassword(10, [pmLower, pmUpper]));
   s1 := TStringlist.create;
   listbox1.selectall;
   if ListBox1.SelCount = 0 then Exit;
   for i := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Selected[i] then
   s1.add(listbox1.Items[i]);
   ClipBoard.AsText := s1.Text;
   s1.Free;
   exit;
   end;