Código Delphi [-]
  
for i := 0 to miTreeView.Items.Count -1 do
  ShowMessage(TCuentaContable(miTreeView.Items[i].Data).Nombre);

Código Delphi [-]
var
 NodoPadre : TTreeNode;
 Ind, suma : Integer;
begin
 Ind := TreeView1.Items.Count-1;
 suma := 0;
 While Ind>0 Do
  begin
    If Not TreeView1.Items[Ind].HasChildren Then
     begin
      suma := suma + StrToInt(TreeView1.Items[Ind].Text);
      if TreeView1.Items[Ind].Parent=Nil then
       suma := 0
      else
       begin
        //Tiene un nodo padre
        NodoPadre := TreeView1.Items[Ind].Parent;
        While NodoPadre <> nil do
         begin
          NodoPadre.Text := IntToStr(StrToInt(NodoPadre.Text)+suma);
          suma := StrToInt(NodoPadre.Text);

          NodoPadre := NodoPadre.Parent;
         end;//While
        suma := 0;
       end;//else
      Dec(Ind);
     end
    else
     Dec(Ind);
  end;//While
end;

Código Delphi [-]
type 
Tcuenta = TObject;
Tcuentas = class (TObjecList)
  public 
      property items[index:integer]:Tcuenta read getItem write SetItem;
      property Total :Extended read GetTotal;
end;

Código Delphi [-]

type  
 Tcuenta = TObject; 
 Tcuentas = class (TObjecList)  
  public property items[index:integer]:Tcuenta read getItem write SetItem;
  property Total :Extended read GetTotal; end;

Código Delphi [-]
unit UCuentas;

interface

uses classes, Contnrs;

type
  TCuentaAbstracta = class(Tobject)
  public
    function GetTotal: integer; virtual; abstract; // es necesario abstracto
    // cada tipo de cuenta implementará SetTotal según a "convenir"
  end;

  TCuenta = class (TCuentaAbstracta) // una simple cuenta
  private
    FTotal: integer;
  public
    procedure SetTotal(Value: integer);
    function GetTotal: integer; override;
  end;

  TCuentaCompuesta = class (TCuentaAbstracta) // una cuenta compuesta por una o más
  private
    FListaCuentas: TObjectList; // El listado de cuentas
  public
    function GetTotal: integer; override;
    function AddCuenta(Cuenta: TCuentaAbstracta): integer;
  end;


implementation

{ TCuentaCompuesta }

function TCuentaCompuesta.AddCuenta(Cuenta: TCuentaAbstracta): integer;
begin
  result := FListaCuentas.Add(Cuenta);
end;

function TCuentaCompuesta.GetTotal: integer;
var i: integer;
begin
  result := 0;
  // calculamos el total desde la lista de cuentas
  // como se ve... se invoca al método GetTotal según la clase que lo implementa.

  // una clase compuesta en su lista puede tener tantas clases compuestas
  // como "simples" se desee. De este modo, SetTotal siempre devolverá el total
  // de las cuentas que la componen.
  for i := 0 to FListaCuentas.Count - 1 do
    inc(result,TCuentaAbstracta(FListaCuentas.Items[i]).GetTotal);
end;

{ TCuenta }

function TCuenta.GetTotal: integer;
begin
  result := FTotal;
end;

procedure TCuenta.SetTotal(Value: integer);
begin
  FTotal := Value;
end;

end.

Código Delphi [-]
function TCuentasContables.DevuelveSaldoCuenta: Double;
begin

  //Si la cuenta es imputable devuelvo el valor saldo cuenta cargado de la BD una vez creada la cuenta
  if CuentaImputable  then
    Result := SaldoCuenta
 //Si no lo es itero hasta llegar a cuentas imputables.
  Else
    Result := Result + DevuelveSaldoCuentasHijas ;

end;

Código Delphi [-]
function TCuentasContables.DevuelveSaldoCuentasHijas: Double;
var
  I : Integer;
begin
  if not Assigned(CuentasHijas) then
  Begin
    Result :=0;
    Exit;
  End;

  for I := 0 to CuentasHijas.Count-1 do
    Result := Result +TCuentasContables(CuentasHijas.Items[i]).DevuelveSaldoCuenta ;

end;

Código Delphi [-]
  for N :=1  to tvArbol.Items.Count -1 do
    tvArbol.Items [N].Text := tvArbol.Items [N].Text +' ( '+ FormatFloat ('$0.00', TCuentasContables (tvArbol.Items [N].Data ).DevuelveSaldoCuenta )+' )';

Código Delphi [-]

TCuentasContables = class(TObject)
public
 function AsCuentaContable:TCuentasContables;
end;

function AsCuentasContable:TCuentasContables;
begin
  result := TCuentasContables(self);
end;

Código Delphi [-]
TCuentasContables (tvArbol.Items [N].Data ).DevuelveSaldoCuenta

Código Delphi [-]
tvArbol.Items[N].Data.AsCuentaContables.DevuelveSaldoCuenta

Código Delphi [-]
var
  nuevo :TBaseObject;
begin
   nuevo := TAlbaran.Create(...);
end;