Random funktioniert erst nach dem 3. mal

[Äfan]

Hi,

Ich will, das wenn man auf einen Knopf drückt, ein Zufallswert zwischen 1 und 6 in Edit1 eingefügt werden soll. Folgenden code habe ich:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 i:=random(5)+1;
 Edit1.Text := inttostr(i);
end;

Das Problem ist: Das der Zufallswert erst angezeigt wird, wenn ich das 3. mal auf den Button klicke. Beim ersten und zweiten klick steht nur 1 in Edit1. Warum geht das nicht gleich beim ersten klick ?

MFG