LPWSPIOCTL

type LPWSPIOCTL = function(

  s: TSocket;

  dwIoControlCode: DWORD;

  lpvInBuffer: LPVOID;

  cbInBuffer: DWORD;

  lpvOutBuffer: LPVOID;

  cbOutBuffer: DWORD;

  var lpcbBytesReturned: DWORD;

  lpOverlapped: LPWSAOVERLAPPED;

  lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE;

  lpThreadId: LPWSATHREADID;

  var lpErrno: Integer

):Integer;