Ошибка IdIcmpClient

[Пепел Феникса]

var
  i:integer;
  s:string;
begin
 for I:=0 to Listbox1.Count-1 do
  begin
   s:=listbox1.items[i];
   DC.Host:= s;
   try
    DC.Ping; //Ïèíãóåì
   except 
    Application.messagebox('Ошибка','Ошибка');
   end;
   if DC.ReplyStatus.ReplyStatusType=rsEc ho then
    begin
     memo1.Lines.Add('* '+s+' online');
    end;
   end;
end;

криво раставлены блоки были(Вирус не ваша вина, а того кто привел пример)

[-=Virus=-]

Сообщение от Пепел Феникса

var
  i:integer;
  s:string;
begin
 for I:=0 to Listbox1.Count-1 do
  begin
   s:=listbox1.items[i];
   DC.Host:= s;
   try
    DC.Ping; //Ïèíãóåì
   except 
    Application.messagebox('Ошибка','Ошибка');
   end;
   if DC.ReplyStatus.ReplyStatusType=rsEc ho then
    begin
     memo1.Lines.Add('* '+s+' online');
    end;
   end;
end;

криво раставлены блоки были(Вирус не ваша вина, а того кто привел пример)

Спасибо всё работает.

[fezilk25]

проверяю пинг в потоке

icmp := TIDIcmpClient.Create(nil);
  icmp.Host := '192.168.1.2';
  icmp.port := 0;
  icmp.ReceiveTimeout:= 2000;

   try
    icmp.Ping; //Ïèíãóåì
   except
    synchronize(posrednik1);
   end;
   if icmp.ReplyStatus.ReplyStatusType=rsEcho then
    begin
     synchronize(posrednik2);
    end;

ошибка 10040 Message too long. почему?