StringGrid: как зафиксировать все ячейки?

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow,
          bool &CanSelect)
{
    CanSelect = (ARow > 0);
}

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    TCanvas *canv = grid->Canvas;
    if(!ARow)
    {
        canv->Brush->Color = clBtnFace;
        canv->Font->Color = clBtnText;
        canv->FillRect(Rect);
        Frame3D(canv, Rect, clBtnHighlight, clBtnShadow, 1);
    }
    canv->TextOut(Rect.Left + 2,Rect.Top + 2, grid->Cells[ACol][ARow]);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow,
          bool &CanSelect)
{
    CanSelect = ARow > 0;
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
   StringGrid1->ColWidths[10] = -1;
}

void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
    if (TrackBar1->Position <2) {
         StringGrid1->RowCount = 2;
         StringGrid1->RowHeights[1]= -1;
    } else {
       StringGrid1->RowHeights[1] = StringGrid1->DefaultRowHeight;
       StringGrid1->RowCount = TrackBar1->Position ;
    }
    StringGrid1->SetFocus(); 
}