title: How to set onChange Event on comboBox at runtime using a procedure inside another procedure?
body: <p>I have a dynamic code which It create a comboBox into a StringGrid Cell and this combo is created at runtime and I should set onChange Event for it. 
  I'm using this code bellow, but this code raise a exception , someone can help-me to become my comboBoxOnChange method in a TNotifyEvent ?</p>
  
  <pre><code>procedure TForm1.gridSelectCell(Sender: TObject; ACol, ARow: Integer;
    var CanSelect: Boolean);
  var
    R: TRect;
    combo : TComboBox;
     procedure comboBoxOnChange(Sender: TObject);
     begin
        combo.Visible := false;
        combo.Free;
     end;
  begin
    combo          := TComboBox.Create(self);
    combo.Parent   := self;
    //[DCC Error] Unit1.pas(57): E2010 Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'
    combo.OnChange := comboBoxOnChange;
  
    combo.Items.Add('Item1');
    combo.Items.Add('Item2');
    combo.Items.Add('Item3');
    combo.Items.Add('Item4');
    combo.Items.Add('Item5');
    combo.Items.Add('Item6');
    combo.Items.Add('Item7');
    combo.Items.Add('Item8');
    combo.Items.Add('Item9');
    combo.Items.Add('Item10');
  
      R         := Grid.CellRect(ACol, ARow);
      R.Left    := R.Left   + grid.Left;
      R.Right   := R.Right  + grid.Left;
      R.Top     := R.Top    + grid.Top;
      R.Bottom  := R.Bottom + grid.Top;
  
      combo.Left := R.Left + 1;
      combo.Top := R.Top + 1;
      combo.Width := (R.Right + 1) - R.Left;
      combo.Height := (R.Bottom + 1) - R.Top;
      combo.Visible := True;
      combo.SetFocus;
      CanSelect := True;
  end;
  </code></pre>