anchor.diff:      function TokenizeScript(const aText: AnsiString; aMaxCmd: Byte; aCommands: array of AnsiString): Boolean;
       function ProcessCommand(CommandType: TKMCommandType; P: array of Integer; TextParam: AnsiString = ''): Boolean; virtual; abstract;
       procedure AddError(const ErrorMsg: string; aFatal: Boolean = False);
  -    property OnProcessCommandText: TKMCommandTextEvent read fOnProcessCommandText write fOnProcessCommandText;
     public
       property FatalErrors: string read fFatalErrors;
       property MinorErrors: string read fMinorErrors;
  
positive.code: type
    TMissionParserCommon = class
    protected
      fOnProcessCommandText: TKMCommandTextEvent;
      fMissionFileName: string;
      fLastHand: TKMHandIndex; //Current Player
      fFatalErrors: string; //Fatal errors descriptions accumulate here
  
negative.code:   repeat
      if aText[I] = '!' then
      begin
  
        //Default uninitialized values
        TextParam := '';
  