TInvalidPathEvent = procedure (Sender: TJamBaseSelectionList; const Path: UnicodeString) of object;