Source position: netdb.pp line 281
function QueryTCP(
Resolver: Integer;
var Qry: TQueryDataLength;
var Ans: TQueryDataLengthTCP;
QryLen: Integer;
var AnsLen: Integer
):Boolean;