See TComponentCombo.OnCanAddObject.
TCanAddObjectEvent = procedure (Sender: TObject; Obj: TPersistent; var CanAdd: Boolean) of object;
edcCmbCombo
Types