[ecfisa]

Hola Jose Roman.

La verdad es que no entiendo que es lo que deseas hacer, pero si buscas capturar un cambio en el valor ItemIndex de un TComboBox, se me ocurre esto:

Código Delphi [-]
...
type
  TComboBox = class(StdCtrls.TComboBox)
  private
    procedure WndProc(var Msg: TMessage); override;
  end;

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

...
implementation

...

procedure TComboBox.WndProc(var Msg: TMessage);
begin
  if Msg.Msg = CB_SETCURSEL then
    ShowMessage(Format('Cambio ItemIndex en %s', [Name]));
  inherited;
end;

//llamada
procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.ItemIndex:= Random(ComboBox1.ItemCount);
end;

Saludos