LPWSPSETSOCKOPT

type LPWSPSETSOCKOPT = function(

  s: TSocket;

  level: Integer;

  optname: Integer;

  optval: PAnsiChar;

  optlen: Integer;

  var lpErrno: Integer

):Integer;