Сделать через ListBox или ComboBox переключение 5-ти таблиц

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Data.Win.ADODB,
  Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.WinXCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Button2: TButton;
    ListBox1: TListBox;
    Button3: TButton;
    DBComboBox1: TDBComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
uses Unit1;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.close;
Form2.Close;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
ADOConnection1.GetTableNames(ListBox1.Items);
end;
 
end.

procedure TForm2.Button3Click(Sender: TObject);
begin
ADOConnection1.GetTableNames(ListBox1.Items);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  If not DBGrid1.DataSource.DataSet.Locate('Название',Edit1.Text,[])then
    ShowMessage('Ничего не найдено');
end;

procedure TForm2.ComboBox1CloseUp(Sender: TObject);
var
  s: string;
begin
  s := ExtractFilePath(Application.ExeName) + ComboBox1.Text + 'Selhoz.mdb';
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + s + ';Persist Security Info=False';
  try
    ADOConnection1.Connected := False;
    ShowMessage('Соединение установлено');
  except
    ShowMessage('Ошибка соединения с БД');
  end;
end;