Source position: fpwebsocketserver.pp line 29
type TAcceptIdleEvent = procedure(
sender: TObject;
var aCheckMessages: Boolean
) of object;