使用indy的IdTcpServer,IdTcpclient传输文件

接受部分（有个用户和密码check，你取消就可以）
procedure TTCP_PServerExecute(AThread: TIdPeerThread);
var
　FStream　　: TFileStream;
　FileName　 : String;
　CmdStr　　 : String;
begin
　 CmdStr :=Ln();
　 if CompareStr(Copy(CmdStr,1,6),'