podría ser algo asi....
Código Delphi
[-]
CadenaFloat:= floattostr(Tuvariablefloat);
ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);
ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat));
Luego si quieres puedes pasar las variables ParteEntera y ParteDecimal a tipo string con la funcion
strtoint.
Espero que te sirva... Saludos, Tony