[B-love@Wolf]

Ну что ж - пока сам не сделаешь никто не поможет. Вот что я хотел:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var pi,k:real; x1,y1,x2,y2,cx,cy,i,r:integer;
begin
r:=36;
x1:=60;
y1:=135;
x2:=132;
y2:=135;
cx:=96;
cy:=135;
pi:=3.1415;
k:=pi;
for i:=1 to 50 do
begin
k:=k+0.02*pi;
x1:=cx+Round(cos(k)*r);
x2:=cx+Round(cos(k+pi)*r);
y1:=cy+Round(sin(k)*r);
y2:=cy+Round(sin(k+pi)*r);

image1.Left:=x1-31;
image1.Top:=y1-31;
image2.Left:=x2-31;
image2.Top:=y2-31;
Sleep(10);
Application.ProcessMessages;
end;

end;