求大神把下面C写的程序改成DELPHI的

[duke222504]

Polynomial: POLYNOMIAL=0x8408;
Start Value: PRESET_VALUE=0xffff;
C-Example:
int i,j;
unsigned int current_crc_value=PRESET_VALUE;
for(i=0;i<len;i++) /*len=number of protocol bytes without CRC*/
{
current_crc_value=current_crc_value^((unsigned int)pData[i]);
for(j=0;j<8;j++)
{
if(current_crc_value&0x0001)
{
current_crc_value=(current_crc_value>>1)^POLYNOMIAL;
}
else
{
current_crc_value=(current_crc_value>>1);
}
}
}
pData[i++]=(unsigned char)(current_crc_value&0x00ff);
pData[i]=(unsigned char)((current_crc_value>>8)&0x00ff);