[Fonoman]

У меня вопрос
как сделать что бы за кружком следую
рисовалась линия

Код:

var t:real;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 t:= t + Timer1.Interval/1000;
 Shape1.Top := round(50*sin(t))+300;
 Shape1.Left := round(50*cos(t))+300;
end;

end.