233             dY: hwFloat;

   233             dY: hwFloat;

   234             Target : TPoint;

   234             Target : TPoint;

   235             Kind: TGearType;

   235             Kind: TGearType;

   236             Pos: Longword;

   236             Pos: Longword;

   237             doStep: TGearStepProcedure;

   237             doStep: TGearStepProcedure;

   238             Radius: LongInt;

   239             Radius: LongInt;

   239             Angle, Power : Longword;

   240             Angle, Power : Longword;

   240             DirAngle: real;

   241             DirAngle: real;

   241             Timer : LongWord;

   242             Timer : LongWord;

   242             Elasticity: hwFloat;

   243             Elasticity: hwFloat;