Estás mezclando la interfaz con la lógica de la aplicación... no es buena idea porque te complica todo lo demás.
En teoría, deberías tener una jerarquía de clases, o al menos varias listas unas dentro de otras formando el arbol... pero con TObject y TObjectList. Eso ya te da toda la potencia para calcular los totales y lo que quieras.
Pasarlo al Treeview, es sólo recorrer las listas y crear nodos... cosa de poca monta, vamos.
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;
Con una definición así puedes hacer todas las virguerías que quieras, sumas, eventos al modificar una cuenta y un total... etc.
Saludos