Algoritmo recursivo

Olá Pessoal,

preciso criar uma função recursiva para varrer todos os items de um TListView(na verdade estou usando o TVirtualStringTree e acredito que o algoritmo pouco mude) para fazer um somatário por grupos.

O que desejo fazer tá na imagem abaixo:

[IMG]
http://www.agenda.eti.br/01.jpg
[/IMG]

Meu código:
Acredito que o algoritmo precise ser recursivo:

Código:

function TForm1.percorreTodosNovo(_nodeInicial: PVirtualNode):TTime;
var
data : PTreeData;
begin
result := 0;
_nodeInicial := _nodeInicial.FirstChild;
while _nodeInicial <> nil do
begin

data := VST.GetNodeData(_nodeInicial);

if VST.HasChildren[_nodeInicial] then
begin
result := result + percorreTodosNovo(_nodeInicial);

data^.FTempo := TimetoStr(result);

end
else
begin
result := result + StrToTimeDef(data^.FTempo, 0);

end;

_nodeInicial := _nodeInicial.NextSibling;
end;

end;