Всем, часто приходилось использовать в Delphi Функцию Sleep, в результате которой программа не отвечает N количество миллисекунд затормаживая процесc, предлагаю использовать альтернативу:

procedure pause(col:integer); 
var wtim:ttime;
begin
wtim:=encodetime(0,0,col,0)+time;
repeat
application.processmessages;
sleep(10);
until time>=wtim;
end;

col - пауза в секукндах. 

При использовании данной функции, программа не будет уходить в Даун, а будет дальше функционировать.

Собственно, простая программа (работает с касперским), для проверки ссылок на заражение, читаем далее, что вышло.