отловить выбранный ItemIndex, а также значение динамического ComboBox (Delphi)

[Иаковъ]

Добрый день, друзья. Уже дня 4 пытаюсь понять, что я делаю неверно.
Есть ComboBox со значениями, при выборе определенного значения создается второй ComboBox со своими значениями. Я пытаюсь получить ItemIndex выбранного значения, а также его самого. Ничего не выходит. Делаю так:

type
TForm1 = class(TForm)
ComboBox1: TComboBox;

procedure ComboBox1Change(Sender: TObject);
procedure Onchange(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
vibor:TComboBox;

implementation
{$R *.dfm}
procedure TForm1.Onchange(Sender: TObject);

begin
if vibor.ItemIndex=0 then {здесь что-то неверно, программа вываливается в ошибку, но почему неверно не могу понять}
ShowMessage('да');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);

var
vibor:TComboBox;

begin
if ComboBox1.ItemIndex=0 then //если выбрано определенное значение то создается ComboBox
begin
vibor:=TComboBox.Create(Self);
vibor.Parent:=Self;
vibor.Left:=232;
vibor.Top:=205;
vibor.Width:=430;
vibor.SetFocus;
vibor.Onchange:=Onchange; //пытаюсь обработать Onchange
with vibor do
begin
vibor.Items.Add('1');
vibor.Items.Add('2');
end;
end
end;
end.

[Son Of Pain]

Ты в методе Onchange обращаешься к *глобальной* переменной vibor, которая нигде не инициализируется.
То, что ты создаешь в ComboBox1Change, сохраняется в локальной переменной.

[Иаковъ]

Огромное тебе спасибо, заработало.