Как скрыть колонки в стринггриде?

StringGrid1->ColWidths[Index] = -1;

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
StringGrid1->ColWidths[3] = -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   { AnsiString mes = ("Создать новую базу (Abonat_adres) и сохранить?");
       if (FileExists("Abonat.txt"))
            mes = (" файл существует перезаписать его?");
      else;
           if(mrYes==MessageDlg(mes, mtInformation,
                TMsgDlgButtons() << mbNo << mbYes, 0))
             {
            TStringList * Lst = new TStringList;
        for(int i=0;i<StringGrid1->ColCount;i++)
                for(int j=0;j<StringGrid1->RowCount;j++)
                        Lst->Add(StringGrid1->Cells[i][j]);
        Lst->SaveToFile("Abonat.txt");
    
        delete Lst;
  ShowMessage ("База сохранена!");
 
             }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
    {          if(mrNo==MessageDlg("База была изменена! Загрузить ранее сохраненную базу?", mtInformation,
                TMsgDlgButtons() << mbNo << mbYes, 0))
              return;   }
         TStringList * Lst = new TStringList;
        if(FileExists("Abonat.txt"))
       {    Lst->LoadFromFile("Abonat.txt");
        int Index=0;
            StringGrid1->RowCount = (Lst->Count)/5;  //делим на количество колонок
        for(int i=0;i<StringGrid1->ColCount;i++)
                for(int j=0;j<StringGrid1->RowCount;j++)
                {
                        StringGrid1->Cells[i][j]=Lst->Strings[Index];
                        Index++;
                }
 
        delete Lst;
        ShowMessage ("Готово!");
 
     }
     else
  ShowMessage ("Липсва файл с база!");
}
//---------------------------------------------------------------------------

 
{
     StringGrid1->ColWidths[3] = -1;
     StringGrid1->ColWidths[4] = -1;
}

strGrid->Row = 3;

if (StringGrid1->Col>3){ StringGrid1->Col = 1; }// чтоб курсор не выходил за пределы экрана!! или Col = 3