Fórum Não consigo fazer com que minha variável receba um valor do meu TEdit #618388

procedure TfrmContasReceber.ValorJuros;
var
  lJuros, lValorNominal, lResultado, lTotal : Double;
var
  i : Integer;
var
  lDias: TDate;

begin
  i := 0;
  lJuros := StrToFloat(edtJurosMensal.Text);
  lJuros := lJuros/30;
  lValorNominal := StrToFloat(edtValorNominal.Text); //linha que está ocorrendo o problema
  lDias := StrToInt(edtDiasAtraso.Text);
  while(i < lDias) do
  begin
    lResultado := ((lValorNominal * lJuros)/100);
    lTotal := lTotal + lResultado;
    i := i + 1;
  end;

  edtValorJuros.Text := FormatFloat(',0.00',lTotal);

end;