[Genry]

Да и вправду Random как-то тупит...
Можно сделать так:

Код:

var
i: integer;
begin
I:= Random(301);
I:=I div 100;

Ну это если надо от 1 до 3, то так...