Выделение строки в StringGrid по правому клику мыши

int x,y,Col,Row;
void __fastcall TForm1::StringGrid1ContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)
{
x=MousePos.x;
y=MousePos.y;
StringGrid1->MouseToCell(x, y, Col, Row);
StringGrid1->Rows[Row]; // не уверен насчет этого. но Row и Col это индексы строчки и колонки на которых была нажата правая кнопка
}

void __fastcall TForm1::StringGrid1ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
int x, y, Col, Row;
x = MousePos.x;
y = MousePos.y;
StringGrid1->MouseToCell(x, y, Col, Row);
StringGrid1->Rows[Row];
}

void __fastcall TForm1::StringGrid1ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
int x, y, Col, Row;
x = MousePos.x;
y = MousePos.y;
StringGrid1->MouseToCell(x, y, Col, Row);
TGridRect StringGridRect;
StringGridRect.Top = Row;
StringGridRect.Right = StringGrid1->ColCount;
StringGridRect.Bottom = Row;
StringGridRect.Left = StringGrid1->FixedCols;
StringGrid1->Selection = StringGridRect;
}

{
void __fastcall TForm1::StringGrid1ContextPopup(TObject *Sender, TPoint &MousePos,
          bool &Handled)
{
int Col, Row;
StringGrid1->MouseToCell(MousePos.x, MousePos.y, Col, Row);
 if(Col!=-1  && Row!=-1 && Row!=0)
 {
   StringGrid1->Row=Row;
 }
}