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.
