Странная работа маленького потока (пингует IP)

[TwiX]

Суть в том, что если после создания потока не ждать его завершения, то в мемо может оказать несколько ответов от одного айпишнка (такое чувство, что у разных потоков одна и та же функция IcmpReply) - пытался даже критическую секцию ставить...

procedure TForm1.FormClick(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Clear;
  for i := 1 to 255 do
  begin
    Caption:=IntToStr(i)+'/'+IntToStr(255);
    TPinger.Create('192.168.137.'+IntToStr(i));
    Sleep(100); //если это убрать, то начнётся бред... (таймаут = 70)
    Application.ProcessMessages;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cs:=TCriticalSection.Create;
end;

{ TPinger }

constructor TPinger.Create(ip: string);
begin
  Icmp:=TIdIcmpClient.Create();
  icmp.Host:=ip;
  icmp.ReceiveTimeout:=75;
  icmp.OnReply:=IcmpReply;

  inherited Create(false);
end;

procedure TPinger.Execute;
begin
  hEvent:=TEvent.Create(nil,false,false,'');
  try
    icmp.Ping();
  except
    SetEvent(hEvent.Handle);
  end;
  WaitForSingleObject(hEvent.Handle, INFINITE);
  icmp.free;
  hEvent.Free;

end;

procedure TPinger.IcmpReply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  ip: string;
begin
  try
  cs.Enter;
  ip:=AReplyStatus.FromIpAddress;
  if ip<>'0.0.0.0' then
  begin
  Form1.ListBox1.Items.Add (ip+': '+IntToStr (AReplyStatus.MsRoundTripTime));
  end;
  finally
  SetEvent(hEvent.Handle);
  cs.Leave;
  end;
end;

end.

[Квэнди]

с многопоточностью idicmp очень плохо дружит - это обусловлено особенностью реализации icmp протокола в indy (дублирование id icmp в заголовках пакетов), что может приводить к дублированию информации.