Combobox и БД

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
Combobox3.Clear;
 
ADOQuery3.Filtered:=False;
ADOQuery3.Filter:='ID_Doljnost=' + ADOQuery2.FieldByName('ID_Doljnosti').AsString;
ADOQuery3.Filtered:=True;
 
 ADOQuery3.First;
 begin
for i := 0 to ADOQuery3.RecordCount - 1 do
    begin
     Combobox3.Items.Add(ADOQuery3.FieldByName('Тесты').AsString);
     ADOQuery3.Next;
    end;
 end;
 
end;

ADOQuery3.First;
while not ADOQuery3.Eof do
  begin
    Combobox3.Items.Add(ADOQuery3.FieldByName('Тесты').AsString);
    ADOQuery3.Next;
  end;

ADOQuery3.Filter:='ID_Doljnost=''' + ADOQuery2.FieldByName('ID_Doljnosti').AsString+'''';

procedure TForm1.ComboBox2Click(Sender: TObject);
begin
  Combobox3.Clear;
  ADOQuery3.Filtered:=False;
  ADOQuery3.Filter:='ID_Doljnost=' + IntToStr(integer(ComboBox2.Items.Objects[ComboBox2.ItemIndex]));
  ADOQuery3.Filtered:=True;
  ADOQuery3.First;
  while not ADOQuery3.Eof do
    begin
      Combobox3.AddItem(ADOQuery3.FieldByName('Тесты').AsString, Pointer(ADOQuery3.FieldByName('Id_test').AsInteger));
      ADOQuery3.Next;
    end;
end;
 
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
  Combobox2.Clear;
  ADOQuery2.Filtered:=False;
  ADOQuery2.Filter:='ID_Podrazdelenie=' + ADOQuery1.FieldByName('ID_Podrazdelenie').AsString;
  ADOQuery2.Filtered:=True;
  ADOQuery2.First;
  while not ADOQuery2.Eof do
    begin
      Combobox2.AddItem(ADOQuery2.FieldByName('Должности').AsString, Pointer(ADOQuery2.FieldByName('ID_Doljnosti').AsInteger));
      ADOQuery2.Next;
    end;
end;

...
ComboBox3.ItemIndex:=0;

if ADOQuery.FieldByName('Правильный').asString = ListBox1.Items.Strings[ListBox1.ItemIndex] then ...
 
// List out bound (-1) говорит, что строка не выбрана, выбирал и программно и в ручную, не понимает.