No tengo Delphi a la mano para probar, pero mira si te funciona con Form1.ActiveControl, o sea, si usas en tu procedimiento
Código Delphi
[-]
If Form1.ActiveControl is TDBGrid then
TDBGrid(Form1.ActiveControl)
Ya tienes el Grid activo, suponiendo que Form1 fuera tu TForm.