583    or (CheckGearDrowning(HHGear)) then

   583    or (CheckGearDrowning(HHGear)) then

   584    begin

   584    begin

   585    DeleteMe;

   585    DeleteMe;

   586    exit

   586    exit

   587    end;

   587    end;

   588 Gear^.dX:= HHGear^.X - Gear^.X;

   589 Gear^.dX:= HHGear^.X - Gear^.X;

   589 Gear^.dY:= HHGear^.Y - Gear^.Y;

   590 Gear^.dY:= HHGear^.Y - Gear^.Y;

   590 

   591 

   591 if (Gear^.Message and gm_Left  <> 0) then HHGear^.dX:= HHGear^.dX - _0_0002 else

   592 if (Gear^.Message and gm_Left  <> 0) then HHGear^.dX:= HHGear^.dX - _0_0002 else

   592 if (Gear^.Message and gm_Right <> 0) then HHGear^.dX:= HHGear^.dX + _0_0002;

   593 if (Gear^.Message and gm_Right <> 0) then HHGear^.dX:= HHGear^.dX + _0_0002;