cambiar datasource.dataset en tiempo de ejecución

[jzginez]

Hola amigos estoy usando delphi 7 y las fibplus les explico tengo un datamodule con todos los componentes necesarios para conectarme a mi base de datos y tablas en mi forma principal tengo un stringgrid el cual relleno con el nombre de los componentes tpFIBDataSet

Código Delphi [-]
  StringGrid1.Cells[0,0]:= 'Tablas';
  StringGrid1.Cells[1,0]:= 'Numero';
  For a:= 0 to (DtmOrigen.ComponentCount -1) do
    If DtmOrigen.Components[a].ClassName = 'TpFIBDataSet'
      Then Begin
        StringGrid1.Cells[0,b]:= DtmOrigen.Components[a].Name;
        StringGrid1.Cells[1,b]:= IntToStr(DtmOrigen.Components[a].ComponentIndex);
        b:= b+1;
        StringGrid1.RowCount:= StringGrid1.RowCount+1;
      End;

además tengo un datasource y un dbgrid lo que quiero hacer y no encuentro la manera ( ) es que al hacer click en alguna celda del stringgrid la propiedad del dataset del datasource cambie y así poder ver los datos almacenados en esa tabla

Código Delphi [-]
DataSource1.dataset:= ????????? (los datos estan en un modulo de datos)

Gracias