Прокрутка StringGrid при нулевой высоте строк

void __fastcall ScrollHiddenRows(TStringGrid *grid, int delta)
{
    // если высота самой нижней видимой строки = 0
    if(grid->RowHeights[grid->TopRow + grid->VisibleRowCount] == 0)
    {
        // пока она == 0, увеличивать верхний ряд, чтобы проскочить невидимые ячейки снизу
        while(grid->RowHeights[grid->TopRow + grid->VisibleRowCount] == 0)
        {
            grid->TopRow += delta;
        }
        // проскочили... теперь осталось выставить новое значение текущему ряду
        grid->Row = grid->TopRow + grid->VisibleRowCount + 1;
    }
    else // снизу - НЕскрытая строка, проверяем верхнюю, может, она скрыта
    if(grid->RowHeights[grid->TopRow] == 0)
    {
        // и если так, то пока она скрыта опять же пропускаем все скрытые строки
        while(grid->RowHeights[grid->TopRow] == 0)
        {
            grid->TopRow += delta;
        }
        grid->Row = grid->TopRow;
    }
 
}
// прокрутка грида сверху вниз
void __fastcall TForm1::StringGrid1MouseWheelDown(TObject *Sender, TShiftState Shift,
          TPoint &MousePos, bool &Handled)
{
    StringGrid1->TopRow += 1;
    ScrollHiddenRows(StringGrid1, 1);
}
//---------------------------------------------------------------------------
 
// прокрутка грида снизу вверх
void __fastcall TForm1::StringGrid1MouseWheelUp(TObject *Sender, TShiftState Shift,
          TPoint &MousePos, bool &Handled)
{
    if(StringGrid1->TopRow > StringGrid1->FixedRows)
    {
        StringGrid1->TopRow -= 1;
        ScrollHiddenRows(StringGrid1, -1);
    }
}

void __fastcall TForm1::StringGrid2MouseWheelUp(TObject *Sender, TShiftState Shift,
          TPoint &MousePos, bool &Handled)
{
     StringGrid2->Col=0;
     while(StringGrid2->RowHeights[StringGrid2->Row] == 0&&
     StringGrid2->Row > 1&&
     StringGrid2->Row < StringGrid2->RowCount-1)
        {
            StringGrid2->Row --;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid2MouseWheelDown(TObject *Sender, TShiftState Shift,
          TPoint &MousePos, bool &Handled)
{
    StringGrid2->Col=0;
    while(StringGrid2->RowHeights[StringGrid2->Row] == 0&&
    StringGrid2->Row > 1&&
    StringGrid2->Row < StringGrid2->RowCount-1)
        {
            StringGrid2->Row ++;
        }
}
//---------------------------------------------------------------------------