Nicht unbedingt die überwältigende Performance, aber geht:
Delphi-Quellcode:
resx := StrToFloat(Format('%1.*f', [2, x]));
Alternativ hilft manchmal auch ein Zwischenschritt über Currency:
Delphi-Quellcode:
resz := FloatToCurr(x);
resz := RoundX(resz,2);