RoundX erhalte immer nur eine Nachkommastelle

[capo]

Ich möchte mit folgendem Code zwei Nackommastellen erhalten, klappt aber nicht erhlate immer nur eine. Seht ihr einen Fehler?
Gruss vom Capo

Delphi-Quellcode:

function RoundUp(X: Extended): Extended;
begin
  Result := Trunc(X) + Trunc(Frac(X) * 2);
end;


function RoundX(const Value: Extended; const nk: Integer): Extended;
var
  multi: Extended;
begin
  multi := IntPower(10, nk);
  Result := RoundUp(Value * multi) / multi;
end;

Delphi-Quellcode:

...
Summeausgabe := (floattostr(RoundX(Summe, 2)));  
...