LPWSPSOCKET

type LPWSPSOCKET = function(

  af: Integer;

  type_: Integer;

  protocol: Integer;

  lpProtocolInfo: LPWSAPROTOCOL_INFOW;

  g: GROUP;

  dwFlags: DWORD;

  var lpErrno: Integer

):TSocket;