Помогите с переводом кода C to Delphi

[Nester]

Есть функция

uint16_t get_crc(uint8_t *b, uint16_t cnt)
{   uint16_t	i;
    uint16_t temp;

    temp=0xFFFF;
    for(i=0; i < cnt; i++)
    {  
				temp ^= (*b++) & 0x00ff;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
				if(temp & 0x0001) temp = (temp >> 1) ^ 0xA001;
				else temp >>= 1;
    }
    return(temp);
}

нужно конвертировать в код Delphi

[Nester]

Решено