97                  isSoundEnabled:= false

    97                  isSoundEnabled:= false

    98                  end;

    98                  end;

    99               FinishProgress;

    99               FinishProgress;

   100               GameState:= gsGame

   100               GameState:= gsGame

   101               end;

   101               end;

   102       gsGame: begin

   103       gsGame: begin

   103               ProcessKbd;

   104               ProcessKbd;

   104               DoGameTick(Lag);

   105               DoGameTick(Lag);

   105               ProcessVisualGears(Lag);

   106               ProcessVisualGears(Lag);

   106               DrawWorld(Lag);

   107               DrawWorld(Lag);