1182         DeleteGear(Gear);

  1182         DeleteGear(Gear);

  1183         isCursorVisible:= true

  1183         isCursorVisible:= true

  1184         end

  1184         end

  1185    else begin

  1185    else begin

  1186         DeleteCI(HHGear);

  1186         DeleteCI(HHGear);

  1187         Gear^.doStep:= @doStepTeleportAfter;

  1188         Gear^.doStep:= @doStepTeleportAfter;

  1188         HHGear^.X:= int2hwFloat(TargetPoint.X);

  1189         HHGear^.X:= int2hwFloat(TargetPoint.X);

  1189         HHGear^.Y:= int2hwFloat(TargetPoint.Y);

  1190         HHGear^.Y:= int2hwFloat(TargetPoint.Y);

  1190         HHGear^.State:= HHGear^.State or gstMoving

  1191         HHGear^.State:= HHGear^.State or gstMoving

  1191         end;

  1192         end;