Полезные функции

[NLObP]

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

Мучался, мучался, но так и не понял, как интервал можно сократить... подскажите подалста? Желательно, чтоб можно было задавать хотябы 0.5 секунды.

В такой реализации можно писать 500 - это 0,5 сек

function Wait(var tick:integer; Timewait: Integer): Boolean;
//сквозная проверка без остановки скрипта (c)dmitry501
//modifed by Sh00rGo
var
  t: integer;
begin
  result:=false;
  t:=Round(Time*86400);
  if t>(tick+Timewait/1000) then begin
    if tick>0 then result:=true;
    tick:=t;
  end;
end;