Source position: IdSocksServer.pas line 154
type TIdOnBeforeEvent = procedure(
AContext: TIdSocksServerContext;
var VHost: string;
var VPort: TIdPort;
var VAllowed: Boolean
) of object;