Delphi pointer arithmetic

Question

How should this line of code be writed to allow it to compile

MoveMemory(poleFileDescriptorW
         , (oleDataPointer + SizeOf(oleFileDescriptorW) *Index + 4)^
         , SizeOf(oleFileDescriptorW));

Particularly this part

(oleDataPointer + SizeOf(oleFileDescriptorW)*Index + 4)^

I am just want to shift the pointer by SizeOf(oleFileDescriptorW)*Index + 4 bytes

Variables are defined as:

pOLEFileDescriptorW : ^FILEDESCRIPTORW;
oleDataPointer : Pointer;

Answer 1

Cast to an integer type, do the math and cast back.

I usually used Cardinal but I think that doesn't work with a 64 bit compiler.

Pointer(NativeInt(oleDataPointer) + SizeOf(oleFileDescriptorW)*Index + 4)