...
...
    // DM : TDataModule;
    // i : integer;
    for i := 0 to DM.ComponentCount - 1 do
        if DM.Components[i] is TDataSet then
            TDataSet(DM.Components[i]).Active := false;
...
...