Mi código es este (también en Delphi 7):
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
f:single;
g:single;
begin
f:=123.456789;
g:=RoundTo(f,-2);
showmessage (floattostr(g));
end;
Estoy convencido que es fallo mio, pero no se donde.
Un saludo y gracias.