Access violation inside BuildImportTable procedure

[hafedh-trimeche]

Delphi 10.1 berlin
Calling raised exception at GetProcAddress_Internal(handle, PAnsiChar(IMAGE_ORDINAL(thunkRef^))) instruction
while thunkRef^ <> 0 do begin if IMAGE_SNAP_BY_ORDINAL(thunkRef^) then funcRef^ := GetProcAddress_Internal(handle, PAnsiChar(IMAGE_ORDINAL(thunkRef^))) else begin thunkData := PIMAGE_IMPORT_BY_NAME(PByte(codebase) + thunkRef^); funcRef^ := GetProcAddress_Internal(handle, PAnsiChar(@(thunkData.Name))); end; if funcRef^ = nil then begin Result := False; Break; end; Inc(funcRef); Inc(thunkRef); end; // while

[Fr0sT-Brutal]

Hi! Could you please try with version from dev branch?