Source position: fphttpclient.pp line 40
type THTTPVerifyCertificateEvent = procedure(
Sender: TObject;
AHandler: TSSLSocketHandler;
var aAllow: Boolean
) of object;