网络传输的问题.....请指教(25分)

做了一个点对点的传输.用的是Winsockapi,没有用控件
我想问的就是当服务器端监听后,客户端进行connect(),这个时候怎么触发服务器端的Accept()
Recesocket:=accept(Stransfer.Server,@Ra,@ra_len); //我现在用button.click来触发
//我想自动触发,怎么做那,

AssignFile(Ftrans,filename);
Rewrite(Ftrans);
Stransfer.StopTrans:=false;
Stransfer.InTrans:=true;

Recelen:=recv(Recesocket,Blockbuf,BlockLen,0);

while(Recelen>0) and(not Stransfer.StopTrans) do
//somethings

是不是我没有说清楚啊,大家晓得教一下吧