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