如何给动态创建的多个TComboBox赋不同的Onchange事件？

Question

如何给动态创建的多个TComboBox赋不同的Onchange事件？
动态创建N多组，N随机，每组有一个TComboBox，
而每组的TComboBox的Onchange事件就是判断这组的TComboBox的ItemIndex
如果是0，保证这组只有一个TComboBox，如果是1，在这个TComboBox后在添加一个属性一样的TComboBox。 

Answer 1

ComboBox1.OnChange := ComboBox1Change

Answer 2

指定一个事件就行了，然后每个组件指定不同的Tag值，事件中可以根据对应的Tag来执行相应的代码

Answer 3

cbID: Integer;
cbList: TList;var
   cb: TComboBox;begin
   ....
  cb := TComboBox.create(self);
  Inc(cbID);
  cb.Tag := cbID; 
  cb.onChange:=ComboBoxChange;
  cbList.add(cb);
...
end;procedure TForm1.ComboBoxChange(Sender: TObject);
begin
    case (Sender as TComboBox).Tag of
        1: ....
        2.:....
      ....
    end;
   .....
end;