Problemas con funcion RoundTo

[Sotrono]

En la ayuda de Delphi 5 no figura la funcion RoundTo, asi que supongo que no la soporta.
Esta funcion de Trucomania seguramente te sirva:

Código Delphi [-]
function Redondear(Valor: Real; Redondeo: Integer):Real;
begin 
  Redondear := Round(Valor * Power(10, Redondeo)) / Power(10,Redondeo);
end;

Bytes...