Z C++ na Delphi

char * XSocket::pGetRcvDataPointer(DWORD * pMsgSize, char * pKey)
{
 WORD * wp;
 DWORD  dwSize;
 register DWORD i;
 char cKey;

	cKey = m_pRcvBuffer[0];
	if (pKey != NULL) *pKey = cKey;

	wp = (WORD *)(m_pRcvBuffer + 1);
	*pMsgSize = (*wp) - 3;
	dwSize    = (*wp) - 3;

	if (dwSize > DEF_MSGBUFFERSIZE) dwSize = DEF_MSGBUFFERSIZE;

	if (cKey != NULL) {//Encryption
		for (i = 0; i < dwSize; i++) {
			m_pRcvBuffer[3+i]  = (char)(m_pRcvBuffer[3+i] ^ (cKey ^ (dwSize - i)));
			m_pRcvBuffer[3+i] -= (i ^ cKey);
		}
	}
        m_pRcvBuffer[3+dwSize] = NULL;
	return (m_pRcvBuffer + 3);
}