[Magnifico]

Такая вот проблема - пишу следующее:

procedure TForm1.Timer1Timer(Sender: TObject);
var
x: integer;
begin
x:=round(x+0.02);
shape1.Left:=x;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=20;
end;

ожидаю при этом что shape1 начнет плавно двигаться слева на право, вместо чего получаю редкие скачки на огромное расстояние, те двигается то в ту сторону, но не плавно, а гигантскими скачками.
В чем дело?
Я ламо, поэтому окурки в монитор не тушите)