[B-love@Wolf]

Имею такую процедуру:

Код:

Procedure Oborot(img1,img2:TImage; Lbl1,Lbl2:TsLabelFX);
var i,j,a1,a2,L1,L2:integer;\\а1,а2 для разпознания номера Image
begin
L1:=29; a1:=1;
L2:=29; a2:=1;
while L1<img1.Left do
begin
L1:=L1+72;
a1:=a1+1;
end;
while L2<img2.Left do
begin
L2:=L2+72;
a2:=a2+1;
end;
For i:=1 to 65 do
 begin
  img1.Top:=img1.Top-1;
  lbl1.Top:=lbl1.Top-1;
  img2.Top:=img2.Top+1;
  lbl2.Top:=lbl2.Top+1;
  Sleep(5);
  Application.ProcessMessages;
 end;
{for i:=1 to a2-a1 do
 BEGIN
 for j:=1 to 72 do
  begin
  img1.Left:=img1.Left+1;
  lbl1.Left:=lbl1.Left+1;
  img2.Left:=img2.Left-1;
  lbl2.Left:=lbl2.Left-1;
  Sleep(5);
  Application.ProcessMessages;
  end;
 END;}
For i:=1 to 65 do
 begin
  img1.Top:=img1.Top+1;
  lbl1.Top:=lbl1.Top+1;
  img2.Top:=img2.Top-1;
  lbl2.Top:=lbl2.Top-1;
  Sleep(5);
  Application.ProcessMessages;
 end;
end;

Как сделать чтобы они менялись, но по траектории кола?