Source position: fpsock.pp line 119
type TConnectEvent = procedure(
Sender: TConnectionBasedSocket;
Stream: TSocketStream
) of object;