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