Source position: fpcustwsserver.pp line 39
type TWSSocketHandlerCreatedEvent = procedure(
Sender: TObject;
AHandler: TSocketHandler
) of object;