Source position: flcTCPServer.pas line 388
type TTCPServerClientWorkerExecuteEvent = procedure(
AClient: TTCPServerClient;
AConnection: TTCPBlockingConnection;
var ACloseOnExit: Boolean
) of object;