Source position: ssockets.pp line 168
type TConnectQuery = procedure(
Sender: TObject;
ASocket: LongInt;
var Allow: Boolean
) of object;