uses SysUtils,Dateutils;

var
start_time:Tdatetime;

{10 секунд обрабатываем сообщения}
start_time:=now;
while SecondSpan(now, start_time)<10 do application.ProcessMessages;