Фиксировать заголовок таблицы при прокрутке

const AnsiString text = this->StringGrid1->Cells[ACol][ARow];
 
    // Если это заголовок
    if ((State.Contains(gdFixed)) || (ARow == 0)) {
      this->StringGrid1->Canvas->Brush->Color = clBtnFace;
   this->StringGrid1->Canvas->Font->Color = clWindowText;
   this->StringGrid1->Canvas->FillRect(Rect);
   Frame3D(this->StringGrid1->Canvas, Rect, clBtnHighlight, clBtnShadow, 1);
        //this->StringGrid1->Canvas->TextRect(Rect, Rect.Left + 5, Rect.Top + 5, text);
        //DrawText(this->StringGrid1->Canvas->Handle, text.c_str(), text.Length(), &Rect, DT_WORDBREAK);
    }
 
    // если ячейка выделена
    else if (State.Contains(gdSelected)) {
   this->StringGrid1->Canvas->Brush->Color = clHighlight;
   this->StringGrid1->Canvas->Font->Color = clHighlightText;
   this->StringGrid1->Canvas->FillRect(Rect);
        //this->StringGrid1->Canvas->TextRect(Rect, Rect.Left + 5, Rect.Top + 5, text);
    }
 
    // закрашиваем ячейку (2, 2)
    else
    //if (this->ErrorRow != NULL) {
      if ((!this->ErrorRow[ARow]) && (ARow > 0) && (this->SortNow)) {
   this->StringGrid1->Canvas->Brush->Color = clSkyBlue; // clBlue;
   this->StringGrid1->Canvas->Font->Color = clRed;
   this->StringGrid1->Canvas->FillRect(Rect);
        //this->StringGrid1->Canvas->TextRect(Rect, Rect.Left + 5, Rect.Top + 5, text);
        }
    //}
    // Для всех остальных ячеек
    else {
   this->StringGrid1->Canvas->Brush->Color = this->StringGrid1->Color;
   this->StringGrid1->Canvas->Font->Color = this->StringGrid1->Font->Color;
   this->StringGrid1->Canvas->FillRect(Rect);
        //this->StringGrid1->Canvas->TextRect(Rect, Rect.Left + 5, Rect.Top + 5, text);
    }
 
    this->StringGrid1->Canvas->TextRect(Rect, Rect.Left + 5, Rect.Top + 5, text);

this->StringGrid1->Perform(WM_VSCROLL, SB_PAGEDOWN, 0);
        Handled = true;

this->StringGrid1->Perform(WM_VSCROLL, SB_PAGEUP, 0);
        Handled = true;

for (int i = 0; i < grid->RowCount; i++) grid->Rows[i]->Clear();
    for (int i = 0; i < grid->ColCount; i++) grid->Cols[i]->Clear();

if (grid->RowCount > 1) grid->FixedRows = 1;