Source position: wsupgrader.pp line 13
type TAllowUpgradeEvent = procedure(
Sender: TObject;
aRequest: TRequest;
var aAllow: Boolean
) of object;