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