如何把以下几句C改为Pascal(涉及指针和强制类型转换）

Question

*(WORD*)&pPackage[0] = index;
pSendBuf += bmpsize*index;//pSendBuf为数组名
memcpy(&pPackage[4],pSendBuf,packsize-12);
*(int*)&pPackage[packsize-12] = bmpsize;

Answer 1

(PWORD(@pPackage[0]))^ := index;
第2句，pascal指针和数组名不能加操作，要操作只能直接用
@pSendBuf[bmpsize*index]这样子
CopyMemory(@pPackage[4],pSendBuf,packsize-12);
(PINT(@pPackage[packsize-12]))^ := bmpsize;

Answer 2

不知道我理解的对不对要等效的话、
pSendBuf += bmpsize*index;//pSendBuf为数组名
memcpy(&pPackage[4],pSendBuf,packsize-12);要改为
CopyMemory(@pPackage[4], @pSendBuf[bmpsize*index] , packsize-12);