[ecfisa]

Hola feliz-88.

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Style := csDropDownList;
  with ADOConnection1 do
  begin
    Connected := True;
    GetTableNames(ComboBox1.Items);
  end;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Close;
    TableName := ComboBox1.Text;
    Open;
  end;
end;
...

Saludos.