delphi Indy新手问题

Question

刚学delphi，用Indy实现支持多客户端文件传输到服务器的一个程序。由于TIdTcpserver本身支持多线程的，所以只需要在TCPServerExecute事件里面写接收数据，
MyFilestream:= TFileStream.Create(FileName,FmCreate);
AContext.Connection.IOHandler.ReadBytes(buf,NumberBytes,False);
BytesToRaw(buf, Buff,NumberBytes);
MyFilestream.WriteBuffer(buff,numberBytes);但是当多个客户端同时传输的时候MyFilestream就不能满足要求了，求高手指导指导怎么解决这个问题，如果有现成的demo就更好了。

Answer 1

以indy10为例，indy9属性可能不同
Connect事件里创建Stream对象，然后赋值给AContext.Data。
Execute事件里取出AContext.Data进行操作。
Disconnect事件里取出AContext.Data进行释放。