procedure TForm1.vr1CustomColumnCompare(Sender: TCustomVirtualExplorerTree;
  Column: TColumnIndex; Node1, Node2: PVirtualNode; var Result: Integer);
var NS1, NS2: TNamespace; s1, s2: string;
begin try
if Sender.ValidateNamespace(Node1, NS1) and Sender.ValidateNamespace(Node2, NS2) then begin
   if Column = CustomIndex then begin
      s1:= cat_arg[get_proy_level(Label1.Caption,NS1.NameParseAddress)];
      s2:= cat_arg[get_proy_level(Label1.Caption,NS2.NameParseAddress)];
      Result := lstrcmp(PChar(s1), PChar(s2));
   end;
end;
except end;End;