Problema Roundto BCD Overflouw
 

Saludos, tengo un problema con la funcion roundto, quiero redondear 50 / 7.07 a dos decimales, y guardarlo en una variable de tipo real, o double, pero me sale el error BCD Overflow, alguien sabe como puedo solucionarlo, Gracias de antemano.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:Double;
begin
n:=Roundto(50 / 7.07,-2);
ShowMessage(FloatToStr(n));
end;

No veo ningún problema el resultado me da 7,07.

Un Saludo.