Zufallswort

[Die Muhkuh]

Delphi-Quellcode:

const
  Woerter: array[0..3] of String = ('Test', 'nene', 'Döner', 'Gurke');

implementation

function GetWord: String;
begin
  Result := Woerter[Random(High(Woerter) + 1)];
end;

procedure ButtonClick;
begin
  ShowMessage(GetWord);
end;

// Das ganz unten hin, vor dem end.
initialization
  Randomize;

end.

Ungetestet