使用CLX中的TcpClient/TcpServer如何传送文件？(80分)

使用CLX中的TcpClient/TcpServer如何传送文件？
以前用TClientSocket/TServerSocket，二者都有接受数据的事件，
OnReceive/OnClientRead，可以发送文件，但现在要用Kylix来写，
CLX中的TcpServer没有OnClientRead，只能client每次发送后都要
断开，然后在TcpServer的OnAccept中来接受数据，这样如果文件比较大，
超过bufer后，需要几次传送，OnAccept就搞不定了。

使用TCPServer->OnReceive=MyReceive；也不管用，不知道如何
得到TcpServer的OnReceive事件响应？

俺的积分不多，这个问题给80分，多谢大家回答！

是要用线程,主动读吧.好象TClientSocket/TServerSocket如果是线程阻塞方式,也是一样.
看help,有现在例子