accept运行一段时间后报access violation at address 错误????

[ZHENG017]

源程序为:
var
aAddrLen:integer;
pSocketAddr:PSockAddr;
begin
GetMem(pSocketAddr,sizeof(TSockAddr));
aAddrLen:=sizeof(TSockAddr);
AcceptedConnect:=Accept(theListenSocket,pSocketAddr,@aAddrLen);
在压力测试时过大约一小时就会报
project xxx.exe raised execption class EAcsessViolation with message 'access violation at address 74f91299 in module 'wshtcpip.dll'.read of address '00000000'.process stopped.use step or run to continue;
高手多指教一下。谢谢 。

[cg1120II]

试试：
AcceptedConnect:=Accept(theListenSocket,pSocketAddr,PInteger(aAddrLen));

[cg1120II]

program tcpserver;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows,
winsock;

var
s,newsock:TSocket;
ser_addr:TSockAddrIn;
remote_addr:PSockAddr;
leng:Integer;
wsa:WSAData;
wVersionRequested:WORD;
buf:array[0..128]of char;
buf2:array[0..128]of char;
begin
//new(leng);
wVersionRequested := MAKEWORD( 2, 0 );
WSAStartup(wVersionRequested,wsa);
s := socket(AF_INET,SOCK_STREAM,0);
ser_addr.sin_family := AF_INET;
ser_addr.sin_addr.S_addr := htonl(INADDR_ANY);
ser_addr.sin_port := htons(4000);

bind(s,ser_addr,sizeof(ser_addr));

listen(s,0);
while 1>0 do
leng:= sizeof(remote_addr);
newsock := accept(s,remote_addr,@leng);
begin
if recv(newsock,buf,sizeof(buf),0)>0 then
begin
writeln('Client Data:',buf);
Readln(buf2);
send(newsock,buf2,sizeof(buf2),0);
end;
closesocket(newsock);
end;

closesocket(s);
WSACleanup();
sleep(2000);
end.