关于文件的读写的问题(100分)

我在做一个程序，这个程序要一边写一边读，也就是说，我要等，写一个说明的例子
iWriteLine :integer;
procedure writefile()
begin
inc(iWriteLine);
writeFile(Handle);
end;

procedure readfile()
begin
while(iWriteLine<我的要读的行)
begin
Sleep(200);
end ;
readfile(Handle);
end;
这个WriteFile是一个从网络接受文件的，通过TCP/IP来接受的。这个读就是在Reviece这个时面的
现在是，如果我读的时候不能读要等就会进入循环，这时这个也TCP就会阻塞。不定文件了。怎么办
如果我没有说明白，请再问?

当TCP/IP数据到达时发消息给读文件的线程.

在写的同时，直接把这些内容送到要用的地方！！！！！！！

这个问题没有人回答，上面的我不满意，可以收回分吗，怎么收回呀。