Subtração não mostra numeros quebrados

function RetornaValor(texto:String):Real;
    var
    i:integer;
    TextoAux:String;
        begin
          i:=1;
            while i<= Length(Texto) do
                 begin
                      if (texto[i] in [´0´..´9´])or(Texto[i]=DecimalSeparator) Then
                        textoAux:=TextoAux+Texto[i];
                        i:=i+1;
         end;
     result:=strtoFloat(TextoAux);
                  end;

   // Calculo de Troco

var valtotal, dinheiro, troco : real;

begin

valtotal := retornavalor(dbedit3.text);
dinheiro := retornavalor(dbedit6.text);
troco    := dinheiro - valtotal;
dbedit7.text := FormatFloat(´#,00´, troco);