See TComponentCombo.OnGetClassName Event
TGetClassNameEvent = procedure (Sender: TObject; Obj: TPersistent; var ClsName: string) of object;
edcCmbCombo
Types