Чтобы скрыть столбец, удалите coVisible из перечисления TVTColumnOption, например,
if coVisible in VST.Header.Columns[3].Options then
VST.Header.Columns[3].Options := VST.Header.Columns[3].Options - [coVisible];
Класс TVirtualTreeColumn имеет свойство MinWidth, которое переопределяет ширину любого столбца меньше, чем MinWidth.Сейчас я не в состоянии проверить это, но я не думаю, что MinWidth даже примет отрицательное целочисленное значение.