Zufall

[hitzi]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var woerter: tstringlist; //das ö nimmt der, glaub ich, nicht
begin
  randomize; //muss nur einmal aufgerufen werden, am besten ins Form.Create
  woerter := tstringlist.create;
  try
    woerter.loadfromfile ('wörter.txt');
    if woerter.count > 0 then begin
      label2.caption := woerter[Random(woerter.Count)];
    end;
  finally
    FreeAndNil(woerter);
  end;
end;

Aber ungetestet ... kann Fehler enthalten, sollte dir aber die Richtung zeigen.