Source position: AbArcTyp.pas line 209
type TAbArchiveConfirmEvent = procedure(
Sender: TObject;
var Confirm: Boolean
) of object;