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