Передать фокус на TStringGrid по нажатию кнопки

void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->SetFocus(); // Непонятно зачем
StringGrid1->OnClick( Sender );
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
ShowMessage( "StringGrid click!" );
}

k=StringGrid19->Row;

int GlobalRow;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage( GlobalRow );
//StringGrid1->OnClick( Sender );
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
GlobalRow = StringGrid1->Row;
}

void __fastcall TForm1::Button21Click(TObject *Sender)
{
StringGrid19->Row;
}

void __fastcall TForm1::Button21Click(TObject *Sender)
{
k=StringGrid19->Row;
}

void __fastcall TForm1::Button21Click(TObject *Sender)
{
Rul_Sel();
}

void __fastcall TForm1::Rul_Sel()
{
k=StringGrid19->Row-1;
 SetFilePointer(fser,(sizeof(str_sm)+(k*sizeof(ser))),NULL,FILE_BEGIN);
 ReadFile(fser,&sr,sizeof(ser),&lread,NULL);
// и т.д
}

 ListBox1->ItemIndex

k=ListBox1->ItemIndex

void __fastcall TForm1::Rul_Sel()
{
 k= StringGrid19->Row-1;
 SetFilePointer(fser,(sizeof(str_sm)+(k*sizeof(ser))),NULL,FILE_BEGIN);
 ReadFile(fser,&sr,sizeof(ser),&lread,NULL);
 unsigned long r=sr.adr;
 hhz=sr.hz;
 h1z=sr.h1;
 hd1=sr.hdm;
 hd2=sr.hdp;
 
 if (F_mash){
            Chart2->LeftAxis->Automatic = false ;
            Chart2->LeftAxis->SetMinMax((2*hd1-hhz),(2*hd2-hhz));
            }
    else    Chart2->LeftAxis->Automatic = true;
 
 F_mash12=true;
 
 SetFilePointer(fdat,r,NULL,FILE_BEGIN);
 ReadFile(fdat,&z[0],(sizeof(bt)*(sr.l+1)),&lread,NULL);
 Gisto();
 
  m= sr.l;
  if (m<100) kt=100; else kt=m;
 
  if (CheckBox2->State==cbChecked)
    {
     Chart2->MaxPointsPerPage=kt;
     Chart3->MaxPointsPerPage=kt;
     Chart5->MaxPointsPerPage=kt;
     Chart12->MaxPointsPerPage=kt;
    }
     else
    {
     Chart2->MaxPointsPerPage=100;
     Chart3->MaxPointsPerPage=100;
     Chart5->MaxPointsPerPage=100;
     Chart12->MaxPointsPerPage=100;
    }
  mpp=Chart2->MaxPointsPerPage;
  ScrollBar1->Position=0;
  ScrollBar1->Max=kt-mpp;
//============================================================================
if (Sh_2) {Sertificat();}
if (Sh_3) { Gistogr();}  // Гистограмма
if (Sh_4) { Diagr();}
if (Sh_5) { Defekt();}
//if (Sh_10){ Valki(); }
}

 ReadFile(fser,&srt,(sizeof(ser)*Nrul),&lread,NULL);
      for (int i=0;i<Nrul;i++)
         {StringGrid19->RowCount=Nrul+1;
          StringGrid19->Cells[0][i+1] =  IntToStr(sr.n);
          StringGrid19->Cells[1][i+1] =  FloatToStrF(sr.hz,ffFixed,7,2);
          StringGrid19->Cells[2][i+1] =  FloatToStrF(sr.bz,ffFixed,7,0);
          StringGrid19->Cells[3][i+1] =  FloatToStrF(sr.l,ffFixed,7,0);
          StringGrid19->Cells[4][i+1] =  FloatToStrF(sr.pf,ffFixed,7,2);
          StringGrid19->Cells[5][i+1] =  TimeToStr(sr.tz);
          StringGrid19->Cells[6][i+1] =  TimeToStr(sr.ts);
         }