Comportamiento extraño de TVirtualStringTree

[Angel.Matilla]

Me está ocurriendo algo que no soy capaz de comprender. Tengo este TVST en un formulario.

y en el evento OnChecked tengo puesto este código:

int nRecibo = 0;
double nImporte = 0;

Button1->Enabled = false;
Button2->Enabled = false;
Nodo = Lista->GetFirst();
while (Nodo != NULL)
{
     if (!Lista->HasChildren[Nodo] && (Lista->CheckState[Nodo] == csCheckedNormal || Lista->CheckState[Nodo] == csCheckedPressed))
     {
          nRecibo  = nRecibo + ((PTreeSelRec)Lista->GetNodeData(Node))->Recibos;
          nImporte = nImporte + ((PTreeSelRec)Lista->GetNodeData(Nodo))->Importe;
     }
     Nodo = Lista->GetNext(Nodo);
}

Button1->Enabled = fNueRec->Button1->Tag != 3 ? nRecibo > 0 && nImporte > 0 : nRecibo > 0 && nImporte > 0 && RadioGroup1->ItemIndex >= 0;
Button2->Enabled = Button1->Enabled;
HeaderControl1->Sections->Items[1]->Text = nRecibo > 0 ? (String)FormatFloat("'Recibos: '###,##0", nRecibo) : (String)"";
HeaderControl1->Sections->Items[2]->Text = nImporte > 0 ? (String)FormatFloat("'Importe: '#,###,##0.00 €", nImporte) : (String)"";

Lo que me está ocurriendo es que seleccione el nodo que seleccione el evento se ejecuta tantas veces como nodos tenga el TVST, en este caos hay 37 nodos y pasa 37 veces por el OnChecked. ¿Alguno me puede explicar por qué?