这个问题缠绕了我很长一段时间，现在问题解决了，总结一下，在SOCKET API调用时，一些需要注意的问题。

WINSOCK2 里面跟 SOCKADDR 相关的调用都需要使用指针形式，并且这个SOCKADDR的长度也需要一个指向Integer的指针参数。

通常情况下在调用 recvfrom 时(下面是原型声明)，如果 SOCKADDR 参数的长度信息(fromlen)没有指定长度的话(未初始化)，会偶发性地产生10022（提供了一个无效的参数）和 10014 错误。

function recvfrom( const s: TSocket; var Buf; len, flags: Integer; from: PSockAddr; fromlen: PInteger ): Integer; stdcall;

下面贴一段接收处理的代码：

var
sa: PSockAddr;
iLen: integer;
t1: integer;
fd_read : PFDSet;
timeout : PTimeVal;
strTmp: string;
begin
Result := 0;
t1 := GetTickCount;
new(fd_read);
new(timeout);
try
FD_ZERO(fd_read^);
FD_SET(FHandle, fd_read^);
timeout^.tv_sec := aTimeOut div 1000;
timeout^.tv_usec := 1000 * (aTimeOut mod 1000);
if select(FHandle + 1, fd_read, nil, nil, timeout) > 0 then
begin
if FD_ISSET(FHandle, fd_read^) then
begin
new(sa);
/// 长度必须指定，初始化正确的值否则的话就容易出现 10022 和 10014 的错误
iLen := SizeOf(sa^);
FillChar(sa^, iLen, 0);
try
Result := idWinSock2.recvfrom(FHandle, oBuffer, aBufferSize, 0, sa, @iLen);
if Result <> SOCKET_ERROR then
begin
fromIP := string(inet_ntoa(sa^.sin_addr));
fromPort := ntohs(sa^.sin_port);
end else
begin
Result := 0;
end;
finally Dispose(sa); end;
end;

FD_CLR(FHandle, fd_read^);
end;
finally Dispose(fd_read); Dispose(timeout); end;
end;