У N одновременно запущенных потоков приходит N события с одними и теми же параметрами

[TwiX]

Как только не создавал я эти потоки... Результат один и тот же...
Снизу две картинки. Во втором посте код потока.
Желающим помочь (или готовым помочь) могу скинуть исходник. Аська 494 101 230

Добавлено:
В ListBox информация заносится через критические секции

[TwiX]

unit untProxyChecker;

interface

uses Classes, IdIcmpClient, IdComponent, Windows, extCtrls, sysUtils;

type
  TReplyPing = procedure(Sender: TObject; const ping: integer) of object;

type
  TProxyChecker=class(TThread)
  private
    _ip: string;
    _port: integer;
    icmp: TIdIcmpClient;
    status: String;
    timeout: Integer;
    FPingReply: TReplyPing;

    procedure OnReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
    procedure Execute; override;
  public
    property ip: string read _ip;
    property port: integer read _port;
    property onPing: TReplyPing read FPingReply write FPingReply;
    constructor Create(ip: string; port: Integer; timeout: Integer; suspended: boolean = false);
  end;

implementation

constructor TProxyChecker.Create(ip: string; port: Integer; timeout: Integer; suspended: boolean);
begin
  _ip:=ip;
  _port:=port;
  Self.timeout:=timeout;
  FreeOnTerminate:=true;

  inherited Create(suspended);
end;

procedure TProxyChecker.Execute;
begin
  icmp:=TIdIcmpClient.Create();

  icmp.Host:=_ip;
  icmp.Port:=_port;
  icmp.ReceiveTimeout:=timeout;

  icmp.OnReply:=onReply;

  icmp.Ping();

  //while not Terminated do
   // Sleep(50);
end;



procedure TProxyChecker.OnReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
var
  ms: integer;
begin
  if AReplyStatus.MsRoundTripTime>=timeout then
    ms:=0
  else
    ms:=AReplyStatus.MsRoundTripTime;

  if assigned(FPingReply) then
    FPingReply(self, ms);
end;

end.

Вот например, если аналогичный проект, то результат будет такой же:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure OnPin(Sender: TObject; const ping: integer);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses untProxyChecker;

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: TProxyChecker;
begin
  a:=TProxyChecker.Create('80.191.89.68', 80, 1000);
  b:=TProxyChecker.Create('189.23.20.8', 8080, 1000);

  a.onPing:=onPin;
  b.onPing:=onPin;

end;

procedure TForm1.OnPin(Sender: TObject; const ping: Integer);
begin
  ListBox1.Items.Add(TProxyChecker(Sender).ip+' '+IntToStr(ping));
end;

end.

[TwiX]

Ааааааааааап

[TwiX]

И правда никто не знает, что за прикол?