TdxOnGetSupportedComponentsEvent = procedure(Sender: TObject; AComponents: TStrings) of object;