[Investment]

//CadenaFloat, ParteEntera y ParteDecimal son de tipo string 

CadenaFloat:= floattostr(Tuvariablefloat); 
ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);
ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat)); 

if Len(ParteDecimal)>2 then
  ParteDecimal:= Copy(ParteDecimal,1,2); //Ya tienes solo dos decimales