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