Problema con flotantes

[macrossman]

Hola tengo el siguiente problema con este codigo de ejemplo:

procedure TForm1.yo(monto,u:real);
var
a:real;
begin
a:=monto-u;
showmessage(floattostr(a));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
yo(16.1,16.8);
end;


el resultado no me da - 0.7 me da -0.6999999999999 por que ??
gracias por la ayuda