Source position: AbArcTyp.pas line 207
type TAbArchiveEvent = procedure(
Sender: TObject
) of object;