Perdido en un array

[jachguate]

Te ha hecho falta detallar la información, pero supongo que tenes un solo evento asociado a todos los grids. Asi, pues el que ha generado el evento viene referenciado en el parámetro Sender (tal como te lo aclararía la ayuda de delphi).

Asi que podrias hacer:

Código Delphi [-]
procedure TSql.BuscarenGrid1Click(Sender: TObject);
begin
  GridFindDialog1.Grid := Sender as TGridssss;
  GridFindDialog1.Execute;
end;

Hasta luego.