Source position: fpcustwsserver.pp line 37
type TWSConnectEvent = procedure(
Sender: TObject;
AConnection: TWSServerConnection
) of object;