Вопрос такой: делаю пинг на удаленные машины, необходимо чтобы пинговалось непрерывно, но так-же нужно переключаться на другие машины, но невозможно остановить процесс пинга. Делаю примерно так:

for i:=0 to 10 do
begin
 result:=ping_func('172.21.161.33');
 if result>0 then res_str:='Время до хоста: '+inttostr(result)+'ms' else res_str:='Превышен интервал ожидания';
end;

И пока цикл не закончен (вообще надо сделать бесконечный) нажать какую-либо кнопку невозможно. Что делать?

нажать какую-либо кнопку невозможно

пружина тугая становится?

File->New->Other->Thread Object

Ха смешно )) В смысле нажать кнопку на форме, даже закрыть программу нельзя

Ну а дальше?

а дальше перености свой цикл в тело execute

Понял надо почитать про потоки

> надо почитать про потоки


> Ха смешно


Смешней другое - то вопрос твой размещен в "Сети", хотя на месте ping_func с тем же "успехом" может оказаться любая другая функция, не имеющая никакого отношения к сетям.

Знаю, просто дальше я наверняка буду задавать вопросы по сетям.

> дальше я наверняка буду задавать вопросы по сетям.


А не рановато ли, если с азами проблемы ?)

В командной строке ping host -t  и прерывание или Ctrl+C или крестик если в окне.