anchor.diff:      AErrorCode := EPasaErrorCode.BadFormat;
       Exit(False);
     end;
  +
  +  Finally
  +    FEPasaLocker.Release;
  +  End;
   
     if (LAccountName <> #0) then begin
       // Account Name
  
positive.code:     AErrorCode := EPasaErrorCode.BadFormat;
      Exit(False);
    end;
  
    FEPasaRegex.Match(AEPasaText);
  
  
negative.code:   TEPasaParser = class
      strict private
        class var FEPasaRegex: TCustomRegex;
        class var FEPasaLocker : TCriticalSection;
        class constructor CreateRegexEPasaParser();
        class destructor DestroyRegexEPasaParser();
  
  