Hola Tuvan.
A ver si este ejemplo es similar a lo que buscas:
Código Delphi
[-]
....
procedure OrbitingImage(i1, i2: TImage; const Radius: Integer; const Delay: Cardinal);
var
cp: TPoint;
i: Integer;
begin
cp.X := i1.Left;
cp.Y := i1.Top;
for i := 0 to 360 do
begin
i2.Left := cp.X + Trunc( Radius * sin( i* PI/180 ) );
i2.Top := cp.Y + Trunc( Radius * cos( i* PI/180 ) );
Sleep( Delay );
Application.ProcessMessages;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OrbitingImage( Image1, Image2, 120, 20 );
end;
Salida:
Saludos