[lmikle]

Вы че, издеваетесь все???

Код:

function Rand(A : Array Of String) : String;
begin
  Result := A[Random(Length(A))];
end;

usage:

Код:

ShowMessage(Rand(['apple', 'parrot', 'tomato']));