Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
t:=0;
U:=StrtoInt(Edit1.Text);
angle:=StrtoInt(Edit2.Text);
U0X:=U * cos(Pi*angle/180);
U0Y:=U * sin(Pi*angle/180);

tp:=(2 * U0Y)/Grav;
sh:=tp/StrtoInt(Edit3.Text);

Form1.Caption := FloattoStr(tp);
Xmax:= (U * U) /Grav;
Ymax:= (U * U)/ (Grav * 2);
kx:= Image1.Width/Xmax;
ky:= Image1.Height/Ymax;

while t<=tp do
Begin
x:=Round(U0X * t);
y:=Round(U0Y * t - ((Grav*(t * t))/2));
Xe:=(x * Kx)+1;
Ye:=((Ymax - y)* Ky)+1;
Image1.Canvas.Ellipse(Trunc(Xe-1),Trunc(Ye-1),Trunc(Xe+1),Trunc(Ye+1));
t:=t+sh;