Задержка в процедуре Опции

[Гена]

Как можно организовать задержку в процедуре? По типу delay в Турбо Паскале.
Заранее спасибо.

[hardcase]

Код

var delaySpan: integer;
begin
    delaySpan := 1000; // задержка 1 секунда
    Sleep(delaySpan);
end;

Сообщение отредактировано: hardcase - 12.07.2007 15:44