Запретить горизонтальную прокрутку грида

void __fastcall TForm11::Timer2Timer(TObject *Sender)
{
if(Form11->StringGrid2->RowCount>13)
{Form11->StringGrid2->Width=s[791]+::GetSystemMetrics(SM_CYHSCROLL);}
else
{Form11->StringGrid2->Width=s[791];}
}

ShowScrollBar(DBGrid1->Handle, SB_VERT, false);

if(ShowScrollBar(StringGrid2->Handle, SB_VERT, true)!=false)
{
  ShowMessage("Вертикальный скрол бар есть");
}

namespace StringGrid_Scroller
{
    class TStringGrid : public Grids::TStringGrid
    {
    private:
        int FRowCount;
        void __fastcall SetRowCount(int Value)
        {
            if(FRowCount != Value)
            {
                bool ScrollBefore = (::GetWindowLong(Handle, GWL_STYLE) & WS_VSCROLL) != 0;
                FRowCount = Value;
                Grids::TStringGrid::RowCount = FRowCount;
                bool ScrollAfter = (::GetWindowLong(Handle, GWL_STYLE) & WS_VSCROLL) != 0;
 
                if(ScrollBefore != ScrollAfter) // наличие скролла изменилось
                {
                    if(ScrollBefore) // Был, а теперь нет
                        Width = Width - ::GetSystemMetrics(SM_CYHSCROLL); // уменьшить ширину
                    else // не было, а теперь есть
                        Width = Width + ::GetSystemMetrics(SM_CYHSCROLL); // увеличить ширину, добавился скролл
                }
            }
        }
    public:
        __fastcall virtual TStringGrid(Classes::TComponent* AOwner)
            : Grids::TStringGrid(AOwner)
        {
            FRowCount = Grids::TStringGrid::RowCount;
        }
    __published:
        __property int RowCount = {read=FRowCount,write=SetRowCount};
    };
};
// и подсовываем перехватчик вместо стандартного компонента
#define TStringGrid StringGrid_Scroller::TStringGrid
 
// дальше - класс формы

int Original_CW;   // Постоянная величина клиентской области грида.
TForm1 * Form1;
__fastcall TForm1::TForm1( OWNER ) : TForm(Owner)
{
  StringGrid1->ScrollBars = ssVertical;   // Доступным делаем только вертикальный скролл.
  Original_CW = StringGrid1->Width;     // Фиксируем ширину клиентской области грида.
} //--------------------------------------------------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender) // Увеличиваем кол-во строк грида.
{
     StringGrid1->RowCount++;
     StringGrid1->ClientWidth = Original_CW;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn2Click(TObject *Sender) // Уменьшаем кол-во строк грида.
{
     StringGrid1->RowCount--;
     StringGrid1->ClientWidth = Original_CW;
}
//---------------------------------------------------------------------------

    int vi,vs;
    GetScrollRange(tabl->Handle,SB_VERT,&vi,&vs);  
    tabl->ColWidths[1] = vs==0 ? 178 : 162;