[k@Z@k]

Код:

.....
var
.....
 p:TPoint
....
procedure TForm1.FormCreate(Sender: TObject);
begin
i := 10;
p.x:=500;
p.y:=500;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
p := MovePointRound(79,i,p);
s.Left := p.x;
s.Top := p.y;
i := i + 10;
end;


function  MovePointRound(l,i : Integer;P1:TPoint): TPoint;
begin
result.x:=P1.x+Round(l*cos(i));
result.y:=P1.y+Round(l*sin(i));
end;