Ребят, помогите пожалуйста. Шарик должен двигаться по окружности, причём радиус должен постоянно меняться(r=random) на угол фи=1.57. Ось Ох совпадает с нижней границей форма.
Код:
procedure TForm4.Timer1Timer(Sender: TObject);
Var x,r,y,angle :integer;
begin
Refresh;
Canvas.Ellipse(round(x+cos(angle)*r),round(y+sin(angle)*r),
round( x+cos(angle)*r+5), round(y+sin(angle)*r+5));
end;
end.