Source position: fpwebsocket.pp line 337
type TWSControlEvent = procedure(
Sender: TObject;
aType: TFrameType;
const aData: TBytes
) of object;