안녕하세요..

스트링그리드에 동적으로 콤보 박스를 만들었는데여..
이 콤보에 이벤트는 어떻게 주나여..

for i := 1 to StringGrid1.RowCount-1 do
  begin
     StringGrid1.objects[3,i] := Tcombobox.create(sgstock);   //////
     with Tcombobox(StringGrid1.objects[3,i]) do
     begin
        parent      := SGstock;        ////

        width       := SGstock.colwidths[2];           //CBpart_state.//
        height      := SGstock.rowheights[2];
        Style       := csDropDownList;
        ClientHeight:=100;

        itemindex := 0;
        Text := '선택!!';
        items.add('100');
        items.add('200');
        items.add('300');
        OnChange  := ComboBox1Change;  // 여기서 이벤트를 줄려구 하는데 안 되네염..
     end;
  end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   showmessage('몇번째 인덱스 값일까여..')
end;

제가 할려구 하는 것은 다음과 같습니다.
위에서처럼 그리드의 총 rows 를 구해서 구 수만큼 combobox 를 만들어 주구여.
그 콤보박스를 눌러서 누른 itemindex 의 값을 스트링그리드에 뿌려줄려구 합니다.
어떻게 좋을까염..
어제부터 삽질하거 있네염..
아시는 분 답변점 해 주세염..