а у меня вот такая странная хрень получилась. работает без Frac и floating-point ставить не надо. округляет по правилам, вроде.
function Round1(x: real): string;
begin
Round1 := '' + trunc(x) + ',' + (trunc(x * 100) - (trunc(x) * 100) + 5) div 10;
end;
еще и запятую вместо точки поставить можно ..)