anchor.diff:    Result := False;
   end;
   
  -function GetSymbolAddress(ModuleHandle: THandle;
  -  const UnitName, SymbolName: string): Pointer;
  +function GetSymbolAddress(ModuleHandle: THandle; const UnitName, SymbolName: string): Pointer;
   var
     Module: TModule;
   begin
  
positive.code:         if Mask = aimAddress then
            Exit;
          if ExportInfo^.Name.IsEmpty then
            Info.SymbolName := ChangeFileExt(FModule.FBaseName, '.') +
              IntToStr(ExportInfo^.Hint)
          else
            Info.SymbolName := ExportInfo^.Name;
          Exit;
  
negative.code:     Result^.SegLength := PSegment^.SegLength;
      { Module could be loaded at a different address space
        specified by Delphi. So we need to fix segment start address. }
      Result^.SegStartAddress := Pointer((PSegment^.SegStartAddress - LModuleImageBase) + FModule.ModuleHandle);
      Result^.SegEndAddress := Pointer(PByte(Result^.SegStartAddress) + Result^.SegLength);
  
      if not FModule.IsAddressInModuleRange(Result^.SegStartAddress) then
      begin
  