Программное выделение строки в StringGrid

Добрый день.
Ребята с форума привожу код в котором можно выделить по клику мауса всю строку в StringGrid1.
Если не затруднит очень вас прошу подскажите как программно выделить всю строку ? Например конретно строку 4ую или 5ую - без использования кликов мауса, например в Button е указать выделение всей 4ой строки StringGird

Буду очень признателен.

Код

void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
               int X, int Y)
{
 
                                if (Button == mbLeft)
  {
         TGridCoord mouse = StringGrid1->MouseCoord(X, Y);
   if((mouse.X == 0)&&(mouse.Y >= StringGrid1->FixedRows))
     {
//         curdist = mouse.Y;
  //             if ((cursource != curdist)&&(drag == true))
        //          {
     //    TSGXX(SG1)->MoveRow(cursource, curdist);
                //   drag = false;
                // return;
             // }
 
              TGridRect Rect;
                 Rect.Left   = 0;
            Rect.Right  = StringGrid1->ColCount;
                Rect.Top    = mouse.Y;
                 Rect.Bottom = mouse.Y;
           StringGrid1->Selection = Rect;
  //        curselect = 0;
         }
}