[jachguate]

probá con esto:

Código Delphi [-]
procedure DataModule1.Configurar;
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TDataSet then
      TDataSet(Components[i]).Propiedad := Valor;
end;

Hasta luego.