LPWSPGETSOCKOPT

type LPWSPGETSOCKOPT = function(

  s: TSocket;

  level: Integer;

  optname: Integer;

  optval: PChar;

  var optlen: Integer;

  var lpErrno: Integer

):Integer;