Как организовать задержку выполнения??

[АД@МbI4ъ]

Delay еcли в ПАСКАЛ-е, а в DELPHI самое простое поставить таймер (компонент TTimer на вкладке system). В Interval прописываете задержку в 1/1000 сек.

[Alter]

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

вот альтернатива Sleep, причем окно продолжает получать сообщения, правда проц действительно грузит

procedure Delay(ms : longint);
var
  TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
  Application.ProcessMessages;
end;

ну и что, причем Sleep к интерфейсу

Тут же говорится, что надо без интерфейса, а у тебя стоит Application.ProcessMessages;
Для него надо Forms подключать, чтобы работал.

[mutabor]

Application.ProcessMessages можно запросто убрать, оно не обязательно, хотя без формы ценность этого способа пропадает и лучше использовать другой