[Страдалецъ]

В качестве цикла у тебя бкдет выступать само событие

Код:

1	Form1.Timer2Timer(Sender: TObject);

По достижении x>11000 тебе надо отключить событие

Код:

1	Timer2.Enabled := x > 11000;

Осталось только перенести описание переменных в приватную секцию формы :

Код:

1	Vx,Vy,x,y,d,a:real;

и вынести из процедуры инициализацию переменных, в создание формы:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.FormCreate(Sender: TObject); begin  Vx:=1500;  Vy:=1200;  x:=11000;  y:=0;  d:=0.001;  a:=-3; end;