procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
IF athread.Data=NIL THEN
BEGIN
MS:=MEMORYSTREAM.CREATE(NIL);
ATHERAD.DATA:=MS;
END;
//客户端发过来的一个数据在多个包中,这个事件是一个客户端发送的一个包在服务端一个线程内触发,这时怎样在这个事件中,对同一个客户端发送的包组成一个数据放在内存流MS中。
现在可以把同一个客户端发送的包放在 ATHERAD.DATA对应的内存流中了,问题是怎
样释放这个ATHERAD.DATA 我想在线程结束时自动释放要怎么做
end;