procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  for i :=0 to ComponentCount - 1 do
    if (Components[i] is TDataSet)and
       (TDataSet(Components[i]).Active) then
      ListBox1.Items.AddObject(TDataSet(Components[i]).Name, TDataSet(Components[i]));
end;    procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ClientDataSet1.Close;
  DataSetProvider1.DataSet := TDataSet(ListBox1.Items.Objects[ListBox1.ItemIndex]);
  ClientDataSet1.Open;
end;