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