co jest źle???

Mam następującą procedurę

[...][code]
zaraz := Random(5);
Label1.caption := IntToStr(Zaraz);
Ustaw(Teraz);
Teraz := Zaraz;[/code]
[...]

Na labelu powinien się wyświetlać przyszły parametr procedury ustaw
a wyświetla się aktualny

procedure TForm1.FormCreate(Sender: TObject);
var
x:integer;
begin
Randomize;
x:=Random(5);
Label1.Caption:=IntToStr(x);
end;

end.

Jeśli podany kod jest zapętlony to problem może leżeć w odświeżaniu komponentu proponuję sprubować dodać tą linijkę na końcu podanego kodu:
application.procesmessages;