procedure TForm1.vr1AddCustomShellColumn(
  Sender: TCustomVirtualExplorerTree; const FirstAvailableIndex: Integer;
  Header: TVTHeader);
var NewColumn: TVETColumn;
begin try
CustomIndex := FirstAvailableIndex;
NewColumn := TVETColumn( Header.Columns.Add);
NewColumn.ColumnDetails := cdCustom;
NewColumn.Text := 'Priority Level';
NewColumn.Width := 90;
except end;End;