[Kirvisniemi]

не надо ничего считать

DecimalNumber := 123.45;
TextResult := COPYSTR(DELCHR(FORMAT(DecimalNumber,0,'<Integer,20><Decimals,20>'),'<',' '),1,10);