请各位大虾救命呀，我在完不成任务就回不了家了(100分)

var
Ftrans:file of byte;
recelen:integer;
blockbuf:array[0..blocklen-1] of byte;
recesocket:Tsocket;
ra:SOCKADDR_IN;
ra_len:integer;
numwrite : string;
begin
ra_len:=sizeof(ra);
recesocket:=accept(server,@ra,@ra_len);
assignfile(Ftrans,filename);
rewrite(Ftrans);
stoptrans:=false;
intrans:=true;
recelen:=recv(recesocket,blockbuf,blocklen,0);
end;
其中的accept(server,@ra,@ra_len)的返回值在windows98下运行都正确，
为什么在windows2000下却不正确！
请各位大虾救命呀

快救命呀
分不够我再加300

你执行这段代码的时机不对？
你说说你是在什么条件下执行执行它的？
这是有客户端连接的时候执行的，你说说看，你是怎么判断客户端连接的