Perdido en un array

[Xianto]

Buenas...

Estoy perdido en un array... veamos un poco de codigo:

Código Delphi [-]
  
....
    var {Privadas}
      vIndex: integer;
      DGrids: array [0..50] of TGridssss;
....
CrearGrids(...);
 
procedure TSql.BuscarenGrid1Click(Sender: TObject);
begin
  GridFindDialog1.Grid := DGrids[PROBLEMA];
  GridFindDialog1.Execute;
end;

El problema que tengo es DGrids[PROBLEMA], ya que como puedo referenciar la grid correspondiente.... si pongo DGrids[0], todo funciona bien, pero como tengo mas de una grid, como puedo saber la que esta llamando al evento ???

Ese es el problema... espero haberme explicado bien, saludos !!!!!