Source position: AbCompnd.pas line 107
type TBeforeFileDeleteEvent = procedure(
Sender: TAbCompoundFile;
FileName: AnsiString;
var AllowDelete: Boolean
) of object;