Source position: sslsockets.pp line 30
type TVerifyCertificateEvent = procedure(
Sender: TObject;
var Allow: Boolean
) of object;