[ecfisa]

Hola.

Si no deseas quitar el "&", entonces proba de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not (ActiveControl is TStringGrid) then  // o TDBGrid, ..., etc
  begin
    //Acciones del evento
    //...
    ShowMessage('click')
  end;
end;

Saludos.