TOnAddFolderEvent = procedure (Sender: TObject; Item: TJamComboItem; var CanAdd: Boolean) of object;