hsr/////////////////////////////////////////////////////////
DBGrid1의 OnCellClick를 잠시 막거나 다른걸로 연결하면됩니다.

procedure TForm1.Button1Click(Sender: TObject);
begin
     ...
     DBGrid1.OnCellClick := DBGrid1CellClick;
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
     ...
     DBGrid1.OnCellClick := nil; 또는
     DBGrid1.OnCellClick := DBGridNewCellClick;
end;

단, 전제조건은 아래 두 함수가 만들어지고,
TForm1 클래스에 선언 되어 있어야합니다.
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);                 <-----
    procedure DBGridNewCellClick(Column: TColumn);            <-----

  private
    { Private declarations }
  public
    { Public declarations }
  end;
.....
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin

end;
procedure TForm1.DBGridNewCellClick(Column: TColumn);
begin

end;