[Angel.Matilla]

Empezado por 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;

Gracias por la respuesta. Veré como lo adapto a mis necesidades.