Приветствую Вас, Alexey!

 AS>> Вот вам нормальная пауза для ДОС версии Торнадо!
 AF> Она не нормальная. Точность этой процедуры - 1/100 секунды. Hужно
 AF> чтобы было хотя бы 1/1000.

  Почему? Можно и без delay (1) - точность будет выше, но и загрузка будет
больше... хотя, как delay работает я не знаю...

Procedure Pause (Duration: LongInt);
{alexrain}
var
  hour, min, sec, ssec : Word;
  temp_time, temp_time_sawe : Word;

Begin
  GetTime (hour, min, sec, ssec);
  temp_time_sawe := ((hour * 60 + min) * 60 + sec) * 600 + ssec;
  temp_time := temp_time_sawe;
  while (Duration > temp_time - temp_time_sawe) do
  begin
    GetTime (hour, min, sec, ssec);
    temp_time := ((hour * 60 + min) * 60 + sec) * 600 + ssec;
  end;
End;

  И вообще, объясни, пожалуйста, что ты имел ввиду? Что-то я не очень понял ;))

           Всего доброго! Алексей

--- (Freq/BBS) --) Welcome to BBS! --)