* use VAToRVA instead of manual conversion

Author: vdisasmdev

PE.Image.pas

@@ -1382,7 +1382,7 @@ function TPEImage.RVAToVA(RVA: TRVA): UInt64;
 
 function TPEImage.VAExists(VA: TRVA): boolean;
 begin
-  Result := RVAToSec(VA - FOptionalHeader.ImageBase, nil);
+  Result := RVAToSec(VAToRVA(VA), nil);
 end;
 
 function TPEImage.VAToMem(VA: TVA): Pointer;