[Casimiro Notevi]

Más o menos:

Código Delphi [-]
procedure TFcuentas.vstArbolChecked(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
  pRec : ^TRecBase;
begin
  inherited;
  pRec := Sender.GetNodeData(Node);
  if node.CheckState = csCheckedNormal then
  begin
    //
  end;
end;