Как заполнить ComboBox данными из TADOTable программно?

form21.suiDBLookupComboBox1.KeyValue := QueryPoliMes.DataSetField.Fields[4].Value;

form21.suiDBComboBox11.Items:= form21.DataSource1.DataSet.FieldList;

form21.ADOQuery1.SQL.Text := 'SELECT * FROM ВидПолиграфии ';
form21.suiDBComboBox11.Items:= form21.ADOQuery1.SQL;
form21.ADOQuery1.Active:=true;

procedure TForm1.Button1Click(Sender: TObject);
Var i,j:integer;
begin
j:=QueryDizajver.RecordCount;
QueryDizajver.Close;
QueryDizajver.Open;
QueryDizajver.First;
 for i:=1 to j do
 begin
 Combobox1.Items.Add(QueryDizajver.FieldByName('fio1' ).AsString);
QueryDizajver.Next;
 end;

QueryDizajver.Open;
while not QueryDizajver.EOF do begin
  Combobox1.Items.Add(QueryDizajver.FieldByName('fio1' ).AsString);
  QueryDizajver.Next;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 QueryDizajver.SQL.Clear ;
 QueryDizajver.SQL.Text:='SELECT fio1 FROM Dizajner';
 QueryDizajver.open;
 ComboBox1.Items.Clear;
 QueryDizajver.First;
  while (not QueryDizajver.Eof)  do
   begin
     ComboBox1.Items.AddObject(QueryDizajver.Fields[0].AsString,TObject(QueryDizajver.Fields[0].AsString));
      QueryDizajver.Next;
   end;

Combobox.ItemIndex:=0;

procedure TForm1.Button1Click(Sender: TObject);
const
  //Файл БД располагается в папке DB, которая в свою очередь расположена в той же папке,
  //где лежит исполняемый файл программы.
  Fn = 'DB\db1.mdb';
var
  S, FileName : String;
begin
  ADOConnection1.Close;
  //Получаем полный путь к файлу БД с учётом текущего расположения исполняемого файла программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  //Формируем строку соединения с учётом нового пути в файлу БД.
  S :=
    'Provider=Microsoft.Jet.OLEDB.4.0;'
    + 'Data Source="' + FileName + '";'
    + 'Mode=Share Deny None;'
    + 'User Id=;'
    + 'Password=;';
  //Записываем новую строку соединения.
  ADOConnection1.ConnectionString := S;
  //Открываем БД.
  ADOConnection1.Open;
end;

procedure TForm1.FormShow(Sender: TObject);
const
  //Файл БД располагается в папке DB, которая в свою очередь расположена в той же папке,
  //где лежит исполняемый файл программы.
  Fn = 'Baza.mdb';
var
  S, FileName : String;
begin
  ADOConnection1.Close;
  //Получаем полный путь к файлу БД с учётом текущего расположения исполняемого файла программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  //Формируем строку соединения с учётом нового пути в файлу БД.
  S := 'Provider=Microsoft.Jet.OLEDB.4.0;'
    + 'Data Source="' + FileName + '";'
    + 'Mode=Share Deny None;'
    + 'User Id=;'
    + 'Password=;';
  //Записываем новую строку соединения.
  ADOConnection1.ConnectionString := S;
  //Открываем БД.
  ADOConnection1.Open;
 
//////// Заполняем ComboBox1 ///////
   QueryDizajver.SQL.Clear ;
 QueryDizajver.SQL.Text:='SELECT fio1 FROM Dizajner';
 QueryDizajver.open;
 ComboBox1.Items.Clear;
  while (not QueryDizajver.Eof)  do
   begin
     ComboBox1.Items.AddObject(QueryDizajver.Fields[0].AsString,TObject(QueryDizajver.Fields[0].AsString));
      QueryDizajver.Next;
   end;
 /////////////////////
 QueryNaruzhMes.SQL.Text:= 'SELECT * FROM ZakazNaruzh order by Data';
 QueryNaruzhMes.Active:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var fio1, fio2: string;
i: integer;
s, dizajnerPoligr: string;
begin
QueryNaruzhMes.Edit;
/// ? ComboBox1.Items.Text:= QueryNaruzhMes.FieldValues
end;