equal
deleted
inserted
replaced
444 begin |
444 begin |
445 PrvInactive:= AllInactive; |
445 PrvInactive:= AllInactive; |
446 AllInactive:= true; |
446 AllInactive:= true; |
447 t:= GearsList; |
447 t:= GearsList; |
448 while t <> nil do |
448 while t <> nil do |
449 begin |
449 begin |
450 Gear:= t; |
450 Gear:= t; |
451 t:= Gear^.NextGear; |
451 t:= Gear^.NextGear; |
452 if Gear^.Active then Gear^.doStep(Gear); |
452 if Gear^.Active then Gear^.doStep(Gear); |
453 end; |
453 end; |
454 |
454 |
455 if AllInactive then |
455 if AllInactive then |
456 case step of |
456 case step of |
457 stDelay: begin |
457 stDelay: begin |
458 if delay = 0 then |
458 if delay = 0 then |