Проблемы с пингом

[Aleksandr]

Динамически на ScrollBox создаю список компьютеров, динамически создаются Led компоненты и IdIcmpClient

//создание индикаторов
led[t]:=TSwitchLed.Create(Form2);
led[t].Parent:=Form1.ScrollBox1;
led[t].Name:='led'+IntToStr(t);
led[t].Height:=26;
led[t].Width:=13;
led[t].Top:=10+(t-1)*led[t].Height;
led[t].Left:=4;
led[t].Visible:=true;

s:= ReadIni('Computers', inttostr(i+1));
l:= pos('=',s);
f:= copy(s,l+1,length(s));
n:= copy(s,0,l-1);
ips[t]:= n;
//создание меток описаний
labels[t]:=Tlabel.Create(Form2);
labels[t].Parent:=Form1.ScrollBox1;
labels[t].Name:='Com_Label'+IntToStr(t);
labels[t].Height:=26;
labels[t].Width:=120;
labels[t].Top:=2+(t-1)*labels[t].Height+8;
labels[t].Left:=24;
labels[t].Visible:=true;
labels[t].Caption:=  f;

//создание клиентов
Client[t]:=TIdIcmpClient.Create(Form2);
Client[t].Name:='Client'+IntToStr(t);
Client[t].Host:= n;
Client[t].OnReply:=Reply;
//Client[t].Ping();

procedure TForm2.Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
 answer:string;
  begin
Form1.answer:=inttostr(AReplyStatus.BytesReceived);
end;

и по таймеру создается поток

procedure TForm1.Timer1Timer(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

Как в потоке считать c IdIcmpClient ReplyStatus

procedure TNewThread.Execute;
var
i: integer;
s:string;
begin
 for i:= 1 to form1.computers do
if answer <> '0' then
begin
form2.led[i].LedState:=LedOn;
 end
else
 form2.led[i].LedState:=LedOff;
end;

[Stilet]

IdIcmpClient сделай приватным компонентом потока. Там его создавай там же и освобождай. Тогда и проблем со считкой не будет.