somando grupos de contas de um balancete contabil

Boa noite.

Tenho um plano de contas e estou tentando fazer o somativo das classes mais não to conseguindo. Alguém pode ajudar?

Var
nível1, nivel2 : String;
snivel1, snivel2 : Real;
Begin
while not tabBalacete.eof do
begin
nivel1 := tabBalanceteCLASSE.Value;
while copy(tabBalanceteCLASSE.Value,1,1)='1' do
begin
snivel1:= snivel1 + tabBalaceteCLASSE.Value;
tabBalancete.next;
end;
end;
End;

* meu plano de contas tem 6 graus por conta. 1 = Ativo, 2 Passivo, 3 débitos, 4 créditos

Agradeço desde ja a ajuda.