Source position: fpsock.pp line 117
type TQueryConnectEvent = procedure(
Sender: TConnectionBasedSocket;
Socket: Integer;
var DoConnect: Boolean
) of object;