83 FillChar(gear^, sizeof(TVisualGear), 0);

    83 FillChar(gear^, sizeof(TVisualGear), 0);

    84 gear^.X:= real(X);

    84 gear^.X:= real(X);

    85 gear^.Y:= real(Y);

    85 gear^.Y:= real(Y);

    86 gear^.Kind := Kind;

    86 gear^.Kind := Kind;

    87 gear^.doStep:= doStepVGHandlers[Kind];

    87 gear^.doStep:= doStepVGHandlers[Kind];

    89 gear^.Tint:= $FFFFFFFF;

    88 gear^.Tint:= $FFFFFFFF;

    90 gear^.uid:= VGCounter;

    89 gear^.uid:= VGCounter;

    92 

    90 

    93 with gear^ do

    91 with gear^ do

    94     case Kind of

    92     case Kind of

    95     vgtFlake:

    93     vgtFlake:

    96                 begin

    94                 begin