AcceptEx

function AcceptEx(

  sListenSocket: TSocket;

  sAcceptSocket: TSocket;

  lpOutputBuffer: LPVOID;

  dwReceiveDataLength: DWORD;

  dwLocalAddressLength: DWORD;

  dwRemoteAddressLength: DWORD;

  var lpdwBytesReceived: DWORD;

  lpOverlapped: POverlapped

):BOOL;