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

//......
 TDate D;
 for(int i = 1; i <= StringGrid1->RowCount; i++)
    {
    if (! TryStrToDate(StringGrid1->Cells[6][i],D) )
       {
       TGridRect Rect;
       Rect.Top = i; 
       Rect.Left = 0; 
       Rect.Right = StringGrid1->ColCount; 
       Rect.Bottom = i; 
       StringGrid1->Selection = Rect;
       StringGrid1->ScrollBy(i,0); // здесь безуспешно пытаюсь прокрутить до выделенной строки
       return;
       }
    }

StringGrid1->TopRow = i;

    if (r != i)

 //переменная для проверки корректна ли дата в графе дата платежа
 TDate D;
 //переменная для получения количества строк в StringGrid1
 int r = StringGrid1->RowCount;
 //начали проверку
 for(int i = 1; i <= StringGrid1->RowCount; i++)
    {
    //если не дошли до последней строки
    if (r != i)
       {
       //проверяем корректность даты в графе дата
       if (! TryStrToDate(StringGrid1->Cells[6][i],D) )
          {
          //если дата введена не корректно
          TGridRect Rect;
          Rect.Top = i; // вторая строка
          Rect.Left = 0; // первая колонка
          Rect.Right = StringGrid1->ColCount; // последняя колонка
          Rect.Bottom = i; // вторая строка
          StringGrid1->Selection = Rect; // выделяем строку
          StringGrid1->TopRow = i - 2 ; // прокручиваем до выделенной строки минус две строки
          ShowMessage("В реестре найдена ошибка, разноска не началась !");
          return;
          }
        }
        else
          {
          //если строка последняя выхожу их цикла
          break;
          }
    }

 for(int i = 1; i < StringGrid1->RowCount; i++)
    {
       //проверяем корректность даты в графе дата
       if (! TryStrToDate(StringGrid1->Cells[6][i],D) )
          {
          //если дата введена не корректно
          TGridRect Rect;
          Rect.Top = i; // вторая строка
          Rect.Left = 0; // первая колонка
          Rect.Right = StringGrid1->ColCount; // последняя колонка
          Rect.Bottom = i; // вторая строка
          StringGrid1->Selection = Rect; // выделяем строку
          StringGrid1->TopRow = i - 2 ; // прокручиваем до выделенной строки минус две строки
          ShowMessage("В реестре найдена ошибка, разноска не началась !");
          return;
          } 
    }