В Delphi7 как сделать аналог rand(знач.1, знач.2, знач.3)?

Всем привет!
Пожалуйста подскажите, как в Дельфи задать рандомный выбор из задаваемых значений, аналогично php'ному rand(знач.1, знач.2, знач.3)?

Заранее большое спасибо!

Не встречал. Можно так, если случай для int:

Код:

function rand( x1, x2, x3 : integer ): integer; begin   Result := 0;   Randomize;   case Random(3)+1 of     1: Result := x1;     2: Result := x2;     3: Result := x3;   end; end;

Vyacheslav: спасибо!