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