procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Components.ComponentCount -1 do
begin
if Components[i] is TDBGrid then
begin
if TDBGrid(Components[i]).DataSource.DataSet:=YourDataSet then
begin
// do sth
end;
end;
end;
end;