请帮忙把这段C代码转换成Delphi，非常感谢！

[china0452]

unsigned short crc_calculate_crc(unsigned short initial_crc, unsigned char *buffer, unsigned short length)
{
unsigned short index= 0;
unsigned short crc = initial_crc;
if(buffer!=NULL)
{
for(index = 0; index<length; index++)
{crc = (unsigned short)((unsigned char)(crc>>8)|(unsigned short)(crc<<8));
crc^=buffer[index];
crc^=(unsigned char)(crc&0xff)>>4;
crc^=(unsigned short)((unsigned short)(crc<<8)<<4);
crc^=(unsigned short)((unsigned short)((crc&0xff)<<4)<<1);
}
}
return (crc);
}

[zyc_glboy]

活要自己干才能提高