Source position: flcTCPServer.pas line 386
type TTCPServerAcceptEvent = procedure(
AServer: TF5TCPServer;
AAddress: TSocketAddr;
var AAcceptClient: Boolean
) of object;