Source position: fpsock.pp line 76
type TConnectionStateChangeEvent = procedure(
Sender: TClientConnectionSocket;
OldState: TConnectionState;
NewState: TConnectionState
) of object;