Лична молба - VisualC++ to Delphi

Можете ли да ми помогнете... и аз закъсах накрая, трябва да преведа следното послание:

void DoubleToLong6( double d, char long6[] ) {
double y = (double)(unsigned long)(0xffffffffL) + 1.;
double f = fmod(d, y);
double s = (d - f) / y;

// printf("\n d=%lf, calc=%lf", d, (s*y+f) );

* (unsigned int *) &(long6[sizeof(long)]) = (unsigned int)s;
* (unsigned long *) &(long6[0]) = (unsigned long)f;
}

това е процедура, на която се подава Double число, и тя го преобразува и настанява в масив от 6 символа... long6 всъшщност е :
byte long6[6]

Благодаря ви предварително! Даже и ще почерпя...