Требуется помощь.

[supernewbie]

begin 
  if FromServer and (ConnectName='01') and (pck = HStr('пакет1)) then
  begin     
  delay(5000);        
  if FromServer and (ConnectName='01') and (pck = HStr('пакет2')) then else
  begin        
   
  buf:=HStr('пакет3');
  SendToClientEx('02'); 
 
    
       
   
   
   end;

  end;
  
  
  end.

Задумка была как бы сделать так, приходит пакет [пакет1] на соединение 01, дальше идет проверка в течении 5 секунд на приход пакета [пакет2], если пакет не приходит, отправляется пакет [пакет3] на соединение 02.

Но у меня как я понял идет просто проверка ЧЕРЕЗ 5 секунд...

Помогите сделать так как описано у меня выше)

Суть вопроса вкратце:

Как сделать сплошную проверку в течении 5 секунд?