Как сделать обработчик до присваивания?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str="uu";
int j;
{
 for (int j=2; j<StringGrid1->Cells[3][j]; j++ );
}
catch (Exception *ex)
{
ShowMessage(ex->Message)
ShowMessage("");
return;
}
{
StringGrid1->Cells[3][2]=IntToStr(StrToInt (StringGrid1->Cells[3][3])+ StrToInt(StringGrid1->Cells[3][5])+ StrToInt(StringGrid1->Cells[3][6])+ StrToInt(StringGrid1->Cells[3][8])+ StrToInt(StringGrid1->Cells[3][14])+ StrToInt(StringGrid1->Cells[3][15])+ StrToInt(StringGrid1->Cells[3][17])+ StrToInt(StringGrid1->Cells[3][18])+ StrToInt(StringGrid1->Cells[3][20])+ StrToInt(StringGrid1->Cells[3][21])+ StrToInt(StringGrid1->Cells[3][23])+ StrToInt(StringGrid1->Cells[3][24])+ StrToInt(StringGrid1->Cells[3][25])+ StrToInt(StringGrid1->Cells[3][26])+ StrToInt(StringGrid1->Cells[3][27])+ StrToInt(StringGrid1->Cells[3][28])+ StrToInt(StringGrid1->Cells[3][29])+ StrToInt(StringGrid1->Cells[3][30]));
 
 
}

if (!TryStrToInt(StringGrid1->Cells[...][...])
    ShowMessage("Некорректные данные");

void __fastcall TForm1::Btn_1Click(TObject *Sender)
{
    for (int i = 0; i < SGrid_1->ColCount; i++)
    {
        for (int j = 0; j < SGrid_1->RowCount; j++)
        {
            int x;
            if (!TryStrToInt(SGrid_1->Cells[i][j], x))
            {
                ShowMessage("Некорректные данные");
                return; 
            }
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, char &Key)
{
if(IsCharAlpha(Key) || Key == '*' || Key == '&'|| Key == '#' || Key == '@' || Key == '!' || Key == '#' || Key == '$' || Key == '%' || Key == '/' || Key == '-' || Key == '+' || Key == '?' || Key == ':')
         Key = 0;
}

for (int i = 3
for (int j = 3
...