[dr. F.I.N.]

Код:

Type
  TNotifyEvent=procedure(Sender:TObject) of object;

  CBObj=class
  private   
   CB,CB0,CB1: TComboBox;
    relCB0,relCB1: array[1..2] of integer;
    res:integer;
    FOnChange: TNotifyEvent;
    Constructor Create(j:integer);
    CBClick:  TNotifyEvent;
    procedure DoOnChange(Sender:TObject);
   Protected
      Procedure DoCBClick(Sender: TObject); dynamic;
   public
      property OnCBClick:  TNotifyEvent read CBClick write CBClick;
      Procedure GenerateCBClick(i,j:integer);
      property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;
.......

constructor CBObj.Create(j:integer);
begin
  ...
  CB.OnChange := DoOnChange;
  CB0.OnChange := DoOnChange;
  CB1.OnChange := DoOnChange;
end;

procedure DoOnChange(Sender:TObject);
begin
  if Assigned(FOnChange) then FOnChange(Self);
end;

Писал на коленке. Изложил суть.