Hier mein Vorschlag...
(i ist ein globale Variable)
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var xoffset, yoffset, xradius, yradius, aufloesung: Integer;
begin
xoffset:=100;
yoffset:=100;
xradius:=100;
yradius:=100;
aufloesung:=20;
i:=(i+1) mod round(2*pi*aufloesung);
Image1.Top:=yoffset+(xradius div 2)+round(xradius*sin(i/aufloesung))-(Image1.height div 2);
Image1.Left:=xoffset+(yradius div 2)+round(yradius*cos(i/aufloesung))-(Image1.width div 2);
end;
Gruß
Ben