[Bargest]

Сообщение от arach

Если я напишу sleep(100), то меня забанит сервер

Ну так что мешает сделать примерно так:

Код:

for i := 1 to database.count - 1 do
 sent_msg;

for j := 1 to 100 do
  begin
    Sleep(100);
    Application.ProcessMessages;
  end;

end;

Я так понимаю, poli-smen имел в виду именно это.

З.Ы. все же лучше использовать потоки.