Код:
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 секунд?