1447 AllInactive:= false;

  1447 AllInactive:= false;

  1448 dec(Gear^.Timer);

  1448 dec(Gear^.Timer);

  1449 if Gear^.Timer = 0 then

  1449 if Gear^.Timer = 0 then

  1450 	begin

  1450 	begin

  1451 	Gear^.Pos:= 1;

  1451 	Gear^.Pos:= 1;

  1452 	Gear^.doStep:= @doStepKamikazeWork

  1453 	Gear^.doStep:= @doStepKamikazeWork

  1453 	end

  1454 	end

  1454 end;

  1455 end;

  1455 

  1456 

  1456 procedure doStepKamikaze(Gear: PGear);

  1457 procedure doStepKamikaze(Gear: PGear);