[Resolvido] DBEdit subtração

Olá, tenho 3 dbedit vou colocar numeros nas duas primeiras e o resultado na terceira.

fiz assim, mas tá dando erro

//is not a valid floating point value//

o que está errado aqui :

private
{ Private declarations }
FCampo1,

 FCampo2: Double;
 public
 { Public declarations }
 end;

var

 FormControle: TFormControle;
 total: real;
 Fcampo1: real;
 FCampo2: real;

implementation

uses UnitPesquisaTransp;

procedure TFormControle.DBEditValorFreteExit(Sender: TObject);

begin

FCampo1 := StrToFloat (DBEditValorFrete.Text);
end;

procedure TFormControle.DBEditAdiantExit(Sender: TObject);

begin

FCampo2 := StrToFloat (DBEditAdiant.Text);
end;

procedure TFormControle.DBEditValorFreteKeyPress(Sender: TObject;
 var Key: Char);

begin

FCampo1 :=StrToFloat(DBEditValorFrete.Text);
DBEditAdiant.SetFocus;
end;

procedure TFormControle.DBEditAdiantKeyPress(Sender: TObject;
 var Key: Char);

begin

FCampo2:=StrToFloat(DBEditAdiant.Text);
total:= FCampo1 - FCampo2;
DBEditSaldo.Text:=FloatToStr(Total);
end;

end.