Запуск процедуры при изменении ComboBox-а, созданного программой

[Justen]

Здравствуйте! Программа после запуска создает несколько ComboBox-ов. Как прописать процедуру, запускающуюся при изменении таких ComboBox-ов, желательно без присваивания им имен?

...
var
i: integer;
CBVidiRabot: array [0..10] of TCombobox;
begin
For i:=0 to 10 do
begin
CBVidiRabot[i]:=TComboBox.Create(Form);
CBVidiRabot[i].Parent:=Form;
CBVidiRabot[i].Top:=i*25+30;
CBVidiRabot[i].Left:=10;
CBVidiRabot[i].Width:=200;
//CBVidiRabot[i].Name:='CBVidiRabot'+inttostr(i);
end;
end.

[ArtGrek]

CBVidiRabot[i]:=TComboBox.Create(Form);
CBVidiRabot[i].Parent:=Form;
CBVidiRabot[i].OnClick := AllComboBoxChange;

procedure TForm1.AllComboBoxChange(Sender: TObject);
begin
  TComboBox(Sender).ItemIndex := 5;
end;

[veniside]

Тогда уже

CBVidiRabot[i].OnChange := AllComboBoxChange;

[ArtGrek]

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

Тогда уже

CBVidiRabot[i].OnChange := AllComboBoxChange;

ну да, чет я стормозил, спасибо

[Justen]

АртГрек, спасибо, решение работает