166     PrevTime, CurrTime: LongWord;

   166     PrevTime, CurrTime: LongWord;

   167     isTerminated: boolean;

   167     isTerminated: boolean;

   168     previousGameState: TGameState;

   168     previousGameState: TGameState;

   169     wheelEvent: boolean;

   169     wheelEvent: boolean;

   170 begin

   170 begin

   171     isTerminated:= false;

   172     isTerminated:= false;

   172     PrevTime:= SDL_GetTicks;

   173     PrevTime:= SDL_GetTicks;

   173     while (not isTerminated) and allOK do

   174     while (not isTerminated) and allOK do

   174     begin

   175     begin

   175         wheelEvent:= false;

   176         wheelEvent:= false;