A default event that can be passed a Cancel value to stop an operation.
TCancelEvent = procedure (Sender: TObject; var Cancel: Boolean) of object;
ShellBrowser