cambiar datasource.dataset en tiempo de ejecución

[[maeyanes]]

Hola...

Teniendo el nombre del componente, puedes usar la función FindComponent o crearte una que te devuelva un TDataSet:

Código Delphi [-]
function TDataModule1.DataSetByName(const AName: string): TDataSet;
var
  I: Integer;

begin 
  for I := 0 to Pred(ComponentCount) do
    if (Components[i] is TDataSet) and (Components[i].Name = AName) then
    begin
      Result := TDataSet(Components[i])
      Exit
    end;
  Result := nil
end;

Luego desde la forma en cuestion haces:

Código Delphi [-]
DataSource1.DataSet := DataModule1.DataSetByName('DatosCliente')

Usando FindComponent sería algo así:

Código Delphi [-]
DataSource1.DataSet := DataModule1.FindComponent('DatosCliente') as TDataSet

Saludos...