procedure TForm1.vr1GetVETText(Sender: TCustomVirtualExplorerTree;
  Column: TColumnIndex; Node: PVirtualNode; Namespace: TNamespace;
  var Text: WideString);
var NS: TNamespace;
begin try
if Sender.ValidateNamespace(Node, NS) then begin
   if Column = CustomIndex then begin
      Text :=p_levl[get_proy_level(Label1.Caption,NS.NameParseAddress)];
   end;
end;
except end;End;