Delphi中TIdTCPServer.OnExecute事件,如何有效整合接收到的数据?