"Модель молекулы в газе" подскажите почему не работает?

[Тёма(C@$pEr)]

пытаюсь сделать "Модель молекулы в газе" почему то "молекула" не движется хотя я прописал timer1.Enabled:=true. Тут V-скорость,V_x-скорость смещения x,V_y-y скорость смещения, y,x-начальные точки,а-угол. Скорость и угол рандомно. Что не правильно? Объясните?

var
Form1: TForm1;
a,V,V_x,V_y:integer;
x,y:real;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
v:=random(2)+1;
a:=random(360);
V_x:=round(v*cos(a)); // скорость смещения
v_y:=round(v*sin(a)); // по горизонтали и вертикали
shape1.Top:=10; //начальная точка
shape1.Left:=20; //начальная точка
end;
//кнопка начало
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
randomize;
v:=random(2)+1;
a:=random(360);
canvas.LineTo(0,250);
canvas.LineTo(293,250);
canvas.LineTo(293,0);
canvas.LineTo(0,0);
timer1.Enabled:=true;
button1.Enabled:=true;
button2.Enabled:=false;
x:=shape1.Left+V_x; // координата угла х
y:=shape1.Top+V_y; // координата угла у
if ((shape1.Left>=0) and (shape1.Left<=250)) then
v_x:=-V_x;
if ((shape1.Top>=0) and (shape1.Top<=293)) then
v_x:=-V_x; //ограничители
end;

//кнопка стоп
procedure TForm1.Button2Click(Sender: TObject);
begin
if button1.Enabled=true then button1.Enabled:=false
else
if button1.Enabled=false then button1.Enabled:=true;
end;

end.

[puporev]

У Вас по таймеру не прописано никакое движение. Вот пример движения картинки по кругу.

var
  Form1: TForm1;
  i:integer;
........................
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image2.left:=240+round(140*sin(i*pi/180));
image2.Top:=170-round(140*cos(i*pi/180));
i:=i+1;
end;

[Тёма(C@$pEr)]

(((у мя все равно не получается.Объясни как по подробнее пожалуйста или дай ссылку я чет не как найти не могу. У всех с таймером написано по разному и все в моем случае почему то не работают. А мне над разобраться а то так попадется в экзамене а я...

[puporev]

Не знаю что Вы там делаете, но вот просто хаотическое движение.

[Тёма(C@$pEr)]

Во)) Спасибо с этим разобрался))