anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +function TRCS.GetMaxModuleAddrSafe():Cardinal;
  +begin
  + if (not Self.ready) then
  +   Exit(0);
  + try
  +   Result := Self.GetMaxModuleAddr();
  + except
  +   Result := 0;
  + end;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   end.//unit
  
positive.code:       property ready:boolean read aready;
        property libDir:string read fLibDir;
        property maxModuleAddr:Cardinal read GetMaxModuleAddr;
    end;
  
  var
  
negative.code:       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;
  