Source position: AbCompnd.pas line 109
type TBeforeFileModifiedEvent = procedure(
Sender: TAbCompoundFile;
FileName: AnsiString;
var AllowModify: Boolean
) of object;