[ecfisa]

Hola.

Pasa que de esa manera, no buscaria en la grilla como deseo.

Bueno, si tenes la búsqueda encapsulada en un procedimiento, una solución es:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not (ActiveControl is TStringGrid) then  // o TDBGrid, ..., etc
    //Acciones del evento
  else
    //llamar procedimiento de búsqueda
end;

A saber: el & del boton no puedo quitarlo, ya q es una funcionalidad de la pantalla.

En realidad en un TButton se puede quitar sin problemas... ¿ Que componente es el botón ?

Saludos.