anchor.diff:    Result := True;
   end;
   
  -procedure TSymbols.GetExportFuncList(const ModuleName: string;
  -  BaseAddress: ULONG_PTR; Value: TStringList);
  -begin
  -  SymLoadModule(FProcess, 0, PAnsiChar(AnsiString(ModuleName)),
  -    nil, BaseAddress, 0);
  +function TSymbols.GetDescriptionAtAddr(Address: ULONG_PTR): string;
  +const
  +{$IFDEF WIN64}
  +  SizeOfStruct = SizeOf(TImagehlpSymbol64);
  +  MaxNameLength = BuffSize - SizeOfStruct;
  +var
  +  Symbol: PImagehlpSymbol64;
  +  Displacement: DWORD64;
  +{$ELSE}
  +  SizeOfStruct = SizeOf(TImagehlpSymbol);
  +  MaxNameLength = BuffSize - SizeOfStruct;
  +var
  +  Symbol: PImagehlpSymbol;
  +  Displacement: DWORD;
  +{$ENDIF}
  +begin
  +  Result := '';
  +  GetMem(Symbol, BuffSize);
     try
  -    if not SymEnumerateSymbols(FProcess, BaseAddress,
  -      @SymEnumsymbolsCallback, Value) then
  +    Symbol^.SizeOfStruct := SizeOfStruct;
  +    Symbol^.MaxNameLength := MaxNameLength;
  +    Symbol^.Size := 0;
  +    if SymGetSymFromAddr(FProcess, Address, @Displacement, Symbol) then
       begin
  -      SymLoadModule(FProcess, 0, PAnsiChar(AnsiString(ModuleName)),
  -        nil, BaseAddress, 0);
  -      SymEnumerateSymbols(FProcess, BaseAddress,
  -        @SymEnumsymbolsCallback, Value)
  +      if Displacement = 0 then
  +        Result := string(PAnsiChar(@(Symbol^).Name[0]));
  +    end
  +    else
  +    begin
  +      //       
  +      SymLoadModule(FProcess, 0, PAnsiChar(AnsiString(FModuleName)), nil, FBaseAddress, 0);
  +      if SymGetSymFromAddr(FProcess, Address, @Displacement, Symbol) then
  +      begin
  +        if Displacement = 0 then
  +          Result := string(PAnsiChar(@(Symbol^).Name[0]));
  +      end;
       end;
     finally
  -    SymUnloadModule(FProcess, BaseAddress);
  -  end;
  +    FreeMem(Symbol);
  +  end;
  +  if Result <> '' then
  +    Result := ExtractFileName(FModuleName) + '!' + Result;
   end;
   
   function TSymbols.GetDescriptionAtAddr(Address, BaseAddress: ULONG_PTR;
     const ModuleName: string): string;
   const
  -  BuffSize = $7FF;
   {$IFDEF WIN64}
     SizeOfStruct = SizeOf(TImagehlpSymbol64);
     MaxNameLength = BuffSize - SizeOfStruct;
  
positive.code:     Result := ExtractFileName(ModuleName) + '!' + Result;
  end;
  
  end.
  
negative.code: 
  const
    ImagehlpLib = 'IMAGEHLP.DLL';
  
  const
    BuffSize = $7FF;
  
  type
    PImagehlpSymbol64 = ^TImagehlpSymbol64;
  