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);
}