Source position: IdSocksServer.pas line 167
type TIdOnVerifyEvent = procedure(
AContext: TIdSocksServerContext;
const AHost: string;
const APeer: string;
var VAllowed: Boolean
) of object;