This procedure is called if an item is added to the control.
TOnAddPath = procedure (Path: String; var CanAdd: Boolean) of object;
TJamCustomFileList.OnAddPath
Jam.Shell.Controls.BaseShellListView