При onselect на combobox вып-ие Query1 и Query2, и заполнение Edit

[Абдуллаев Рустам]

Запросы Парам-ие в Delphi:
для adoquery4

select lastname_us from users where name_us=:name

для adoquey5

select t1.name_pos from positions t1,users t2
where t1.pos_id=t2.pos_id and t2.surname_us=:sur and name_us=:nam and lastname_us=:otch
group by   t1.name_pos

Имеется такой код:

begin
combobox4.Items.Clear;
t:=form10.ComboBox3.Text;
with form10.Adoquery4 do
   begin
close;
form10.Adoquery4.Parameters[0].value:=t;
open;
   end;
form10.ADOQuery4.Active:=true;
form10.Adoquery4.first;
while not form10.Adoquery4.Eof do
  begin
  form10.ComboBox4.Items.Add(form10.Adoquery4.FieldValues['lastname_us']);
  form10.Adoquery4.Next;
  end;

Как видите заполняем combobox
фамилиями
далее:

sur:=combobox2.Text;
nam:=combobox3.Text;
otch:=combobox4.Text;
with adoquery5 do
  begin
  close;
  adoquery5.Parameters[0].Value:=sur;
  adoquery5.Parameters[1].Value:=nam;
  adoquery5.Parameters[2].Value:=otch;
  open;
  end;
Adoquery5.Active:=true;
k:=adoquery5.Fields[0].AsString;
adoquery5.active:=false;
edit1.Text:=k;

Выполняю Adoquery5, причем один параметр для него беру из Adoquey4
ВСе в принципе работает, но задача также в том как видите далее в коде, чтобы заполнялся edit1 значением из adoquery5, и он заполняется, но в combobox4, на который я все это пишу, а именно на событие onselect, текст сразу пропадает, как только выберу один из пунктов, а текст этот нужен для визуальной работы и обращения к нему в будущем.

[Dark_Spirit]

а код который вы написали на событие onselect где?

[vovk]

Ага интерестно было бы узнать по каким событиям всё это происходит..
ну и не понятно зачем вот это

form10.ADOQuery4.Active:=true;//а это зачем после open?
form10.Adoquery4.first;// ну это ладно, хотя сразу после открытия на какой записи стоять то может

 open;
  end;
Adoquery5.Active:=true;//и тут тоже..

Если вм не трудно в своём коде нажмите на этот open удерживая Ctrl (Control) и вам сразу станет понятно от чего вопрос
потом тут

with form10.Adoquery4 do
   begin
close;
form10.Adoquery4.Parameters[0].value:=t;// зачем было тогда with form10.Adoquery4 do  использовать? 
//чтоб close - open написать? ниже тоже самое... 
//нее я то не настаиваю, но выкладываете же :) читать просто трудно:)
open;
   end;

[Абдуллаев Рустам]

Спасибо всем, ошибку понял.