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

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

Код:

Form1.Timer2Timer(Sender: TObject);

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

Код:

Timer2.Enabled := x > 11000;

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

Код:

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

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

Код:

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