Галимарзанов Фанис советует: TForm имеет свойство ActiveControl. Очень часто требуется для нескольких DBGrid на форме обеспечить обработку через общий TSpeedBar. Посмотрите, как описан код обработки события Click кнопки SpeedBar - циклический просмотр на совпадение ActiveControl.Name с именем Grid.
procedure TfmAb.insClick(Sender: TObject); // кнопка "Новая запись" begin if ActiveControl.Name='grFio' then EditAbProps(true) else if ActiveControl.Name='grAbLgot' then EditAbLgot(grAbLgot.DataSource,true) else ............ end;
