void __fastcall TForm3::StringGrid1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 Grid_number = StrToInt((((TStringGrid*)Sender)->Name)[11]);
 ((TStringGrid*)Sender)->MouseToCell(X,Y,ACol,ARow);
 if (Button!=1)
    Data_Change(StrToInt((((TStringGrid*)Sender)->Name)[11]), ACol, ARow);
 else
    Data_Change2(StrToInt((((TStringGrid*)Sender)->Name)[11]),ACol, ARow,X,Y);
}