IdUDPServer1UDPRead问题

。。。
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地址所发出的。
有办法解决吗？

可能是线程的问题。。偶没测试过

占个位置学习一下

学习学习先

50个点发送数据，每个点2秒发送数据，就偶然会出现。每个点10秒发送数据，就不出现。线程的程序也简单，只是保存。