Problema con atributos privados

[Durbed]

Hola tengo el siguiente codigo:

Código Delphi [-]
...
private
    D, H: Real;
    
    procedure Calc_Saldo;
...

// Procedimento que calcula el saldo
procedure TForm1.Calc_Saldo;
Begin
  EdSaldo.FloatValue := D - H;
End;

// En el evento OnCreate del From
  D := SaldoDebe;
  H := SaldoHaber;
  Calc_Saldo;

SaldoDebe y SaldoHaber son valores que saco de una base de datos, el problema es que dentro del procedimiento Calc_Saldo, el valor de D y H es 0. En el evento OnCreate los valores de D y H son los que le asigno, es decir, que al volver el control del programa al procedimiento OnCreate D y H vuelven a tener los valores que tenian antes de la llamada al procedimiento Calc_Saldo.

A ver si podeis aclarar a que se debe esto y como podria solucionarlo.

Gracias