function GetRandomWord() : string;
var
  words : TStrArray;
begin
  words := ['Apple', 'Banana', 'Peach', 'Blueberry'];
  result := words[Random(length(words))];
end;