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