anchor.diff:  class constructor TEPasaParser.CreateRegexEPasaParser;
   begin
     FEPasaRegex := TCustomRegex.Create(EPasaPattern);
  +  FEPasaLocker := TCriticalSection.Create;
   end;
   
   class destructor TEPasaParser.DestroyRegexEPasaParser;
   begin
     FEPasaRegex.Free;
  +  FEPasaLocker.Free;
   end;
   
   function TEPasaParser.Parse(const AEPasaText: String): TEPasa;
  
positive.code:     AErrorCode := EPasaErrorCode.BadFormat;
      Exit(False);
    end;
  
    if (LAccountName <> #0) then begin
      // Account Name
  
negative.code:   uregexpr,
    UCommon,
    UCrypto,
    UEncoding,
    SyncObjs;
  
  type
  
  