Как открыть все компоненты в дата модуле?

У меня на дата модуле висят IBQuery и IBDataSet
Как мне их все открыть?
Думаю, надо сделать перебор DataModule.Components но как не знаю.
Кинте пример пожалуйста.
var DataSet :TDataSet;
i :integer;
begin
  for i:=1 to DataModule.ComponentCount-1 do
    begin
      if DataModule.Components[i] is TDataSet then
        begin
          DataSet:=DataModule.Components[i] as TDataSet;
          DataSet.open;
        end;
    end;
end;

TopList Rambler's Top100