Задача по Delphi

[Underflip]

Такая Задача: С помощью компонента TTimer изобразить Вращающийся подшипник.
Пытаюсь это все сделать, но у меня получается только так чтобы 2 составляющие этого подшипника вращались по кругу. А нужно чтобы их было 4 шт.
Вот моя попытка:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+0.1;
shape1.left:=120+trunc(80*cos(x));
shape1.top:=150+trunc(80*sin(x));
shape2.left:=120-trunc(80*cos(x));
shape2.top:=150-trunc(80*sin(x));
shape3.left:=130+trunc(80*cos(x));
shape3.top:=150+trunc(80*sin(x));
shape4.left:=125-trunc(80*cos(x));
shape4.top:=155-trunc(80*sin(x));
end;

"Как надо" вращаются только 2 шарика...Как сделать так чтобы они вращались относительно одного центра???
Помогите умоляю!