Есть у меня некая процедура, которую нужно выполнять в цикле, но с задержкой. Как эту задержку внести в цикл? Если сделать просто:
Код:
procedure Sending;
var
i: Integer;
Begin
for i:= 0 to database.Count - 1 do
sent_msg;
sleep(10000);
End;
то форма повисает и задержка вообще не работает - моментально все выполняется. Делать в отдельном потоке - тоже не вариант. Как быть?