[Nyctos Kasignete]

Код:

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;
  Canvas.LineTo((Shape1.Left shl 1 + Shape1.Width) shr 1,
                (Shape1.Top shl 1 + Shape1.Height) shr 1);
end;