select()函数使用的问题，大家帮忙看看！(50分)

执行到调用select()函数时，程序就停在那儿了，不知道哪儿不对，大家帮忙看看！
部分代码如下：
new(readfds); //创建一个可读的等待套接字描述符集合
new(TimeInterval);
TimeInterval.tv_sec := RESPONDTIME; //select超时时间，值为3秒
TimeInterval.tv_usec := RESPONDTIME;
FD_ZERO(readfds^);
FD_SET(aSocket,readfds^);
while TimeInterval.tv_sec>0 do
begin
lastTime := GetTickCount(); //纪录开始等待时间
ret := select(aSocket+1,readfds,nil,nil,TimeInterval); //执行到这一句就停住了，死记！
nowTime := GetTickCount();
if FD_ISSET(aSocket,readfds^) then
begin
ret := recv(aSocket,recvBuffer,CONSTLEN+3*INTLEN,0);
if ret=SOCKET_ERROR then
begin
result :=6;
ShowMessage('注册客户端应用失败');
break;
end;
if ret=0 then
begin
result := 7;
ShowMessage('超时');
break;
end;
nPos := 1;
if PInteger(@recvBuffer[nPos])^ = PInteger(@sendBuffer[1])^ then //检查报文编号是否和发送的相等
begin
inc(nPos,3*INTLEN);
if PInteger(@recvBuffer[nPos])^ = CC_REG then
begin
result := 0;
_curAgentIP := AgentIP;
break;
end
else
continue;
end
else
begin
TimeInterval.tv_sec := TimeInterval.tv_sec - (nowTime-lastTime); //更改超时时间
TimeInterval.tv_usec := TimeInterval.tv_sec - (nowTime-lastTime);
continue;
end;
end;
end;