Source position: AbCompnd.pas line 103
type TBeforeDirDeleteEvent = procedure(
Sender: TAbCompoundFile;
Dir: AnsiString;
var AllowDelete: Boolean
) of object;