BCB这段代码如何用delphi实现

if (cmd == 0x0b000)//readfile
{char* pread = (char*)cmddata; 
/* if (*pread == 0 && *(pread+2) == 0x14 )
{
memset(pread,0,53);
*pread = 0x32;
memcpy(pread+2,"01234567890123456789012345678901234567890123456789",50);}
if (*pread == 0x32 && *(pread+2) == 0x32 )
{
memset(pread,0,53);
*pread = 0x32;
memcpy(pread+2,"QSQWQSQ_QS[]_][EGEKMEGEKMOWU[]UWU[]_][UW_ACAGACAOA",50);}
if (*pread == 0x64 && *(pread+2) == 0x32 )
{*/
memset(pread,0,53);
*pread = 0x32;
memcpy(pread+2,"JHJDB@BDJH@^\\^X^\\^P^VTVPVTLN@NFDF@FDFXVT\\ZXZ\\RPR\\Z",50);// }
return 0;
这是bcb的代码，我想用delphi实现，如何实现