1002         else

  1002         else

  1003             FindPlace(ar[i]^.Gear, false, leftX, rightX, true);

  1003             FindPlace(ar[i]^.Gear, false, leftX, rightX, true);

  1004         if ar[i]^.Gear <> nil then

  1004         if ar[i]^.Gear <> nil then

  1005             begin

  1005             begin

  1006             ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > leftX + playWidth div 2;

  1006             ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > leftX + playWidth div 2;

  1008             end;

  1007             end;

  1009         ar[i]:= ar[Count - 1];

  1008         ar[i]:= ar[Count - 1];

  1010         dec(Count)

  1009         dec(Count)

  1011         end

  1010         end

  1012     end;

  1011     end;