Ist das Thema noch offen, oder die ist die Frage beantwortet?
Naja, hier ist auch nochma ne Lösung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR woerter : TStringList;
Zahl : integer;
begin
Randomize;
woerter := TStringList.Create;
woerter.Add('Wort1');
woerter.Add('Wort2');
woerter.Add('Wort3');
woerter.Add('Wort4');
ShowMessage(woerter.Strings[Random(woerter.count)]);
end;
Edit: Ich bin ein Depp ey, zum Glück hab ich mir meinen Post nochmal angeguckt - Flüchtigkeitsfehler
verbessert...