Source position: fpwebsocket.pp line 280
type TWSMessageEvent = procedure(
Sender: TObject;
const aMessage: TWSMessage
) of object;