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