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

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

  1923         HHGear^.State:= HHGear^.State or gstMoving;

  1923         HHGear^.State:= HHGear^.State or gstMoving;

  1924         playSound(sndWarp)

  1924         playSound(sndWarp)

  1925         end;

  1925         end;

  1926 TargetPoint.X:= NoPointX;

  1926 TargetPoint.X:= NoPointX;

  1928 end;

  1927 end;

  1929 

  1928 

  1930 ////////////////////////////////////////////////////////////////////////////////

  1929 ////////////////////////////////////////////////////////////////////////////////

  1931 procedure doStepSwitcherWork(Gear: PGear);

  1930 procedure doStepSwitcherWork(Gear: PGear);

  1932 var HHGear: PGear;

  1931 var HHGear: PGear;