226             State : Longword;

   226             State : Longword;

   227             X : hwFloat;

   227             X : hwFloat;

   228             Y : hwFloat;

   228             Y : hwFloat;

   229             dX: hwFloat;

   229             dX: hwFloat;

   230             dY: hwFloat;

   230             dY: hwFloat;

   231             Kind: TGearType;

   233             Kind: TGearType;

   232             Pos: Longword;

   234             Pos: Longword;

   233             doStep: TGearStepProcedure;

   235             doStep: TGearStepProcedure;

   234             Radius: LongInt;

   236             Radius: LongInt;

   235             Angle, Power : Longword;

   237             Angle, Power : Longword;