Problem mit Server Pinger

[Tpercon]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  for i := ListBox1.Items.Count - 1 downto 0 do begin
    IdIcmpClient1.Host := ListBox1.Items.Strings[i];
    IdIcmpClient1.Ping(IntToStr(timeout));
    ListBox1.Delete(i);
  end;
end;