Source position: ssockets.pp line 169
type TFPConnectQuery = procedure(
Sender: TObject;
ASocket: TFPSocket;
var Allow: Boolean
) of object;