Как лучше всего пинговать множество сетевых устройств параллельно?

Я опрашиваю множество устройств в сети (более 300) с помощью итеративного пинга.

Программа опрашивает устройства последовательно, поэтому это медленно. Я бы хотел увеличить скорость опроса.

В Delphi 7 есть несколько способов сделать это:

1. У каждого устройства есть поток, выполняющий эхо-запрос. Управляйте потоками вручную.
2. Изучите и используйте Indy 10. Нужны примеры.
3. Используйте перекрывающийся ввод-вывод на основе оконных сообщений.
4. Используйте порты завершения на основе событий.

Что быстрее, проще? Приведите примеры или ссылки, например.