Source position: fpcustwsserver.pp line 44
type TWSAllowConnectionEvent = procedure(
Sender: TObject;
AConnection: TWSServerConnection;
var aAllow: Boolean
) of object;