懂C程序的进来帮忙将这个函数翻译成为Delphi,先谢谢!

下面是一个加密码函数,懂C程序的进来帮忙将这个函数翻译成为Delphi,和写个解密函数,先谢谢了!Const unsigned long M1 =A； 
Const unsigned long IA1 =B； 
Const unsigned long IC1 =C； 
Void encrypt(
unsigned long key， 
unsigned char* buffer， 
unsigned short size ) 
{
unsigned short idx = 0； 
if( key == 0 ) key = 1； 
while( idx < size ) 
{
key = IA1 * ( key % M1 ) + IC1； 
buffer[idx++] ^= (unsigned char)((key>>20)&0xFF)； 
} 
}