// TObjx.....................................
type TObjx = class(TObject)
  private
    FBCDEvent: TBCDEvent;
    function Ereignis(...)..;
  public
    property OnBCD: TBCDEvent read FBCDEvent write FBCDEvent;
  end;

function TObjx.Ereignis(...)..;
begin
  if Assigned(OnBCD) then
     OnBCD(...)
end;


// TClassX.....................................
type
  TClassX = class(TPersistent)
  private
    FBCDEvent: TBCDEvent;
    procedure MachWas(..);
  published
    property OnBCD: TBCDEvent read FBCDEvent write FBCDEvent;
  end;


procedure TClassX.MachWas(..);
begin
    ObjX := TObjx.Create;
end;


// TMyControl.....................................
type
  TMyControl = class(TComponent)
  private
    FBCDEvent: TBCDEvent;
    FClassX: TClassX;
  published
    { Published declarations }
    property OnBCD: TBCDEvent read FBCDEvent write FBCDEvent;
  end;


constructor TMyControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FClassX := TClassX.Create;
end;