See TComponentCombo.OnGetComponents.

TGetComponentsEvent = procedure (Sender: TObject; List: TList) of object;