Возникла проблема пингования

в общем что делаю
есть база с ip адресами и пр.
считываю все это дело в TStringList-ы
...
далее в таймере(раз в секунду) выполняю
...
if(timer==3600) timer=0;
timer++;
for(iks=0; iks<pinghosts; iks++)
{
if(timer%StrToInt(Timeout->Strings[iks])==0)
{
IdIcmpClient1->ReceiveTimeout=StrToInt(Timeout->Strings[iks]);
IdIcmpClient1->Host=IP_adr->Strings[iks];
try
{
for(int j=0; j<StrToInt(Packets->Strings[iks]); j++)
{
IdIcmpClient1->Ping();
}
}
catch(EIdSocketError &exeption)
{
if (Problem->Strings[iks]!="1")
{
if (Problem->Strings[iks]=="0")
{
hosts_ok--;
hosts_off++;
if (show=="ping")
{
Panel6->Caption=hosts_ok;
Panel8->Caption=hosts_off;
}
if (Message->Strings[iks]=="True")
{
String s=("косяк...");
s+=IP_adr->Strings[iks];
//Memo1->Lines->Add(s);
Application->MessageBox(s.c_str(), "косяк", MB_OK);
}
}
if (Problem->Strings[iks]=="2")
{
if (Message->Strings[iks]=="True")
{
говорю типа что косяк -//- }
}
if (Problem->Strings[iks]=="3")
{
if (Message->Strings[iks]=="True")
{
-//-}
}
Problem->Strings[iks]="1";
}
}
}
}
...
а в обработчике пингования пишу
...
String result[5];
result[0] = IntToStr(AReplyStatus.BytesReceived);
result[1] = AReplyStatus.FromIpAddress; result[2] = IntToStr((int)AReplyStatus.SequenceId); result[3] = IntToStr((int)AReplyStatus.TimeToLive); result[4] = IntToStr(AReplyStatus.MsRoundTripTime);
if(AReplyStatus.ReplyStatusType==2) {
if (Problem->Strings[iks]!="2")
{
if (Problem->Strings[iks]=="0")
{
hosts_ok--;
hosts_off++;
if (show=="ping")
{
Panel6->Caption=hosts_ok;
Panel8->Caption=hosts_off;
}
if (Message->Strings[iks]=="True")
{
-//-}
}
if (Problem->Strings[iks]=="1")
{
if (Message->Strings[iks]=="True")
{
-//-}
}
if (Problem->Strings[iks]=="3")
{
if (Message->Strings[iks]=="True")
{
-//-}
}
Problem->Strings[iks]="2";
}
}
if(AReplyStatus.ReplyStatusType==0) {
if (StrToInt(result[4])>StrToInt(Delay->Strings[iks]))
{
if (Problem->Strings[iks]!="3")
{
if (Problem->Strings[iks]=="0")
{
hosts_ok--;
hosts_off++;
if (show=="ping")
{
Panel6->Caption=hosts_ok;
Panel8->Caption=hosts_off;
}
if (Message->Strings[iks]=="True")
{
-//-}
}
if (Problem->Strings[iks]=="1")
{
if (Message->Strings[iks]=="True")
{
-//-}
}
if (Problem->Strings[iks]=="2")
{
if (Message->Strings[iks]=="True")
{
-//-}
}
Problem->Strings[iks]="3";
}
}
if (Problem->Strings[iks]!="0")
{
hosts_ok++;
hosts_off--;
if (show=="ping")
{
Panel6->Caption=hosts_ok;
Panel8->Caption=hosts_off;
}
Problem->Strings[iks]="0";
}
...
в общем проблема в чем
при обработке события у меня выводится сообщение на экран и пока я не нажму ок то эта часть кода вроде как не продолжается, а таймер то тикает и в итоге у меня получается куча сообщений и т.п. косяки
далее если я делаю не вывод сообщения а вывод например в мемо, то у меня получается вот что
...
Возникла проблема пингования (превышен интервал ожидания) на адрес - 192.168.178.1
Возникла проблема пингования (превышен интервал ожидания) на адрес - 194.87.0.50
Возникла проблема пингования (превышена максимально допустимая задержка) на адрес - 127.0.0.1
//Это вроде как нормально а дальше не очень...
Возникла проблема пингования (превышена максимально допустимая задержка) на адрес - 192.168.178.1
Возникла проблема пингования (превышен интервал ожидания) на адрес - 192.168.178.1
Возникла проблема пингования (превышена максимально допустимая задержка) на адрес - 192.168.178.1
Возникла проблема пингования (превышен интервал ожидания) на адрес - 192.168.178.1
...
анализ показал что это происходит в за один подход пингования
в одно и тоже время(точность секунды)
алгоритм отрабатывает т.е. Problem->Strings[iks] изменяются, но дело происходит для разных пакетов причем их нумерация не по порядку а в разнобой! количество пакетов не равно количеству всего посланных пакетов

Вопрос - можно ли вывести сообщения так чтобы код продолжал исполняться не дожидаясь нажатия ОК
и что за фигня происходит с пакетами ?