[arach]

Есть у меня некая процедура, которую нужно выполнять в цикле, но с задержкой. Как эту задержку внести в цикл? Если сделать просто:

Код:

procedure Sending;
 var
 i: Integer;
 Begin
 for i:= 0 to database.Count - 1 do
 sent_msg;
 sleep(10000);
 End;

то форма повисает и задержка вообще не работает - моментально все выполняется. Делать в отдельном потоке - тоже не вариант. Как быть?