207 

   207 

   208 New(gear);

   208 New(gear);

   209 FillChar(gear^, sizeof(TGear), 0);

   209 FillChar(gear^, sizeof(TGear), 0);

   210 gear^.X:= int2hwFloat(X);

   210 gear^.X:= int2hwFloat(X);

   211 gear^.Y:= int2hwFloat(Y);

   211 gear^.Y:= int2hwFloat(Y);

   213 gear^.Kind := Kind;

   213 gear^.Kind := Kind;

   214 gear^.State:= State;

   214 gear^.State:= State;

   215 gear^.Active:= true;

   215 gear^.Active:= true;

   216 gear^.dX:= dX;

   216 gear^.dX:= dX;

   217 gear^.dY:= dY;

   217 gear^.dY:= dY;