Source position: AbZipTyp.pas line 193
type TAbNeedPasswordEvent = procedure(
Sender: TObject;
var NewPassword: AnsiString
) of object;