ComboBox и привязка таблицы

t:Tstringlist;
...
ADOConnection.GetTableNames(t)

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.TYPE)=1));

procedure TForm1.FormShow(Sender: TObject);
begin
  ADOConnection1.GetTableNames(ComboBox1.Items, True);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
  var
     MyTab : UTF8String;
begin
 MyTab := Trim(ComboBox1.Text);
 if (MyTab <>'') then
  begin
     with ADOQuery1 do
     begin
       Close;
       SQL.Clear;
       SQL.Append('SELECT * FROM '+ MyTab +'');
       Open;
     end;
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls,
  DBCtrls;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    TabSheet4: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ADOQuery2: TADOQuery;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    DBGrid4: TDBGrid;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    ADOQuery3: TADOQuery;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    N5: TMenuItem;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    DBNavigator1: TDBNavigator;
    DBGrid5: TDBGrid;
    ComboBox1: TComboBox;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
 
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, Unit3, Unit4, Unit5;
 
{$R *.dfm}
 
procedure TForm1.N4Click(Sender: TObject);
begin
Form2.Show;
Form2.frxReport1.ShowReport;
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
   Form3.Show;
 Form3.frxReport1.ShowReport;
end;
 
 
 
procedure TForm1.Edit1Change(Sender: TObject);
 
var help1, help2:string;
begin
help1:='%'+Form1.Edit1.Text+'%';
help2:=QuotedStr(help1);
with form1.ADOQuery1 do
begin
Close;
sql.clear;
SQL.Add('select * from prep where id_prep like'+help2+'or fam like'+help2+'or ima like'+help2+'or otche like'+help2+'Or data like'+help2+'order by id_prep');
Open;
end;
end ;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form4.Caption:='Äîáàâèòü';
  form1.ADOQuery1.Append;
  Form1.Visible:=false;
Form4.Show;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
form5.show;
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.Caption:='Äîáàâèòü';
  form1.ADOQuery1.Append;
  Form1.Visible:=false;
Form4.Show;
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
form5.Show;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
 
var
     MyTab : UTF8String;
begin
 MyTab := Trim(ComboBox1.Text);
 if (MyTab <>'') then
  begin
     with ADOQuery1 do
     begin
       Close;
       SQL.Clear;
       SQL.Append('SELECT * FROM '+ MyTab +'');
       Open;
     end;
  end;
end;
 
end.