1053         end

  1053         end

  1054     end

  1054     end

  1055 end;

  1055 end;

  1056 

  1056 

  1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear;

  1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear;

  1060     width, dX, dY: hwFloat;

  1059     width, dX, dY: hwFloat;

  1061     bound: LongInt;

  1060     bound: LongInt;

  1062     isHit: Boolean;

  1061     isHit: Boolean;

  1063 begin

  1062 begin

  1064     t:= GearsList;

  1063     t:= GearsList;