322       begin

   322       begin

   323       Gear:= t;

   323       Gear:= t;

   324       t:= Gear.NextGear;

   324       t:= Gear.NextGear;

   325       if Gear.Active then Gear.doStep(Gear);

   325       if Gear.Active then Gear.doStep(Gear);

   326       end;

   326       end;

   327 if AllInactive then

   328 if AllInactive then

   328    case step of

   329    case step of

   329         stDelay: begin

   330         stDelay: begin

   330                  dec(delay);

   331                  dec(delay);

   331                  if delay = 0 then

   332                  if delay = 0 then