anchor.diff:        procedure DllOnError(Sender: TObject; errValue: word; errAddr: Cardinal; errMsg:PChar);
         procedure DllOnInputChanged(Sender:TObject; module:Cardinal);
         procedure DllOnOutputChanged(Sender:TObject; module:Cardinal);
  +      function GetMaxModuleAddrSafe():Cardinal;
   
      public
        log:boolean;
  
positive.code:       property ready:boolean read aready;
        property libDir:string read fLibDir;
        property maxModuleAddr:Cardinal read GetMaxModuleAddr;
    end;
  
  var
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  function TRCS.GetMaxModuleAddrSafe():Cardinal;
  begin
   if (not Self.ready) then
     Exit(0);
   try
     Result := Self.GetMaxModuleAddr();
   except
     Result := 0;
   end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  