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