Source position: fpwebsocketclient.pp line 28
type TWSClientHandShakeResponseEvent = procedure(
Sender: TObject;
aResponse: TWSHandShakeResponse;
var aAllow: Boolean
) of object;