Использование события OnChange ComboBox

[Lyubimov]

Здравствуйте!

Есть ComboBox, в него надо добавлять пункты, которые введены в его текстовое поле по нажатию кнопки. А так же по нажатию этой же кнопки необходимо брать значение выделенного пункта.

Я делаю так: по событию OnChange проверяю текущий индекс, если он -1, то название кнопки "Создать пункт" и действие соответствующее, иначе название кнопки "Загрузить" с соответствующим действием.

Так вот, почему-то иногда при редактировании текста то ли это событие не происходит, то ли ещё что-то, вообщем название кнопки не меняется

Может быть как-то по-другому можно сделать?

[Mad_Cat]

 if cbb.items.indexof(cbb.text)>=0 then btn.caption:='load' 
Else btn.caption:='save'

B onChange комбика

[Lyubimov]

Сообщение от Mad_Cat

 if cbb.items.indexof(cbb.text)>=0 then btn.caption:='load' 
Else btn.caption:='save'

B onChange комбика

Спасибо

    if (ComboBox1->Items->IndexOf(ComboBox1->Text) == -1) {
		Button1->Caption = "Создать";
    }
    else {
		Button1->Caption = "Загрузить";
    }

Работает