[Pilot_Red]

Сообщение от moullla

формулы движения я знаю не понимаю как в коде организовать
на данный момент имею ток

Код:

procedure TForm1.Button3Click(Sender: TObject);

 begin
  x:=100;
 y:=100;
 x1:=150;
 y2:=150;
   With Form1.Canvas do
   begin
       Brush.Color:=clRed;
     Pen.Color:=clRed;
    Rectangle(x,y,x1,y2);
    Brush.Color:=clBlue;
    Pen.Color:=clBlue;
    Ellipse(x,y,x1,y2);
   end;
end;

Разбирайтесь...