OnChange И AdvTreeComboBox

[chui]

Здравствуйте. В общем суть проблемы в следующем. На событие onChange написана процедура, где при выборе Item'a происходит обращение к базе и вместо названия в Text записывается id.

name:= treeCB.Text;
query:= DBFrm.getCode(name);
treeCB.Text:= query.Fields[0].AsString;

Вот основной кусок кода. Но возникает проблема в том, что при присвоении id-шника onChange срабатывает снова.
Я пытался с помощью if решить проблему:

if flag = true then begin
flag:= false;  +
exit;            +
end else begin
flag:= true;   +
name:= treeCB.Text;
query:= DBFrm.getCode(name);
treeCB.Text:= query.Fields[0].AsString;
end;

Но и тут проблема, т.к. помеченные + строчки просто игнорируются и не выполняются (понятия не имею почему).

Подскажите, как решить проблему.

[Аватар]

А перед присвоением OnChange:=nil, и восстановить OnChange после присвоения?

[chui]

Аватар, спасибо, но подскажи тогда еще, как именно восстановить?

[Аватар]

OnChange:=AdvTreeComboBoxChange; - подставить имя процедуры-обработчика события