IdUDPServer1UDPRead问题

Question

type
  TMyThread = class(TThread)
  private
    Buf: TIdBytes;
    MyABinding: TIdSocketHandle;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  published
  end;

procedure TAutoDataService.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TIdBytes; ABinding: TIdSocketHandle);
var
  MyThread:TMyThread;
begin
    MyThread:=TMyThread.Create(true);
    with MyRecThread do
    begin
      buf:=AData;
      MyABinding:=ABinding;
      Resume;
    end;
end;
用IdUDPServer接收数据，当数据量较大时偶然会出现AData和ABinding.PreeIp不匹配，即接收的数据（AData），不是PreeIp地址所发出的。
有办法解决吗？

Answer 1

用线程干什么，直接在读事件里写不就得了。另外注意:
1.进入读事件后，马上将AData和ABinding保存下来处理。
2.或者先放到一个队列里，另一个程序，如定时器或者线程去处理这个数据队列。