Source position: AbCompnd.pas line 105
type TBeforeDirModifiedEvent = procedure(
Sender: TAbCompoundFile;
Dir: AnsiString;
var AllowModify: Boolean
) of object;