Ещё вот такой вопрос
Есть кусок кода ну например
procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('ping.exe ' + memo1.Lines[0] + ''), sw_show);
+++++++
showmessage ('ааааааа!!!')
end;

Нужно где я поставил +++++ сделать 30 секундное ожидание Тоесть нажал на кнопку пропинговался хост Через 30 сек появилось сообщение.....

UPD: Через таймер не предлагать!!!!