Random Befehl spielt verrückt

[STS301]

Hallo

habe ein Problem mit dem Randombefehl

er soll eine Beliebige Zahl zwischen 1 und 6 anzeigen, jedoch zeigt er 6 nie an und manchmal zeigt
er gar nichts an

hier der source:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var f : integer;

begin

randomize;
f:=random(6);

if f=1 then
showmessage('1')
else if f=2 then
showmessage('2')
else if f=3 then
showmessage('3')
else if f=4 then
showmessage('4')
else if f=5 then
showmessage('5')
else if f=6 then
showmessage('6')

end;

danke im Voraus