Надо просто на плоскости, чтоб один круг крутился по кругу вокруг другого, у меня крутится, но параметры я ввожу вручную в самом коде
(begin
x:=x + 0.1;
shape2.Left:=300 + trunc(200*cos(x)); shape2.Top:=200 – trunc(200*sin(x))

эт пример.
и никак ровно по кругу не получается.