таймер с скозным проходом

[wimax]

Вопрос почему таймер с сквозным проходом не роботает мб я не так понел его функцию хотелосьбы узать по подробней

//Почта под freya
Const
rich=''; //кому шлем
itemid = 6392; // ид чего шлем
Name=''; //от кого
interval = 10; //интервал перед послыкой

var
Invertory:array[0..100,1..3] of integer;
i:word;
ObjId:integer;
countId:integer;
tick: Integer;

procedure Init;
begin
buf:=#$14;
SendToServerEx(Name);
end;

procedure ItemList;
begin
for i:=0 to 100 do
begin
Invertory[i,1]:=0;
Invertory[i,2]:=0;
Invertory[i,3]:=0;
end;
for i:=0 to 100 do
begin
Invertory[i,1]:=ReadD(i*68+6);
Invertory[i,2]:=ReadD(i*68+10);
if Invertory[i,2]=itemid then ObjId:=Invertory[i,1];
end;
for i:=0 to 100 do
begin
Invertory[i,3]:=ReadQ(i*68+18);
Invertory[i,2]:=ReadD(i*68+10);
if Invertory[i,2]=itemid then countId:=Invertory[i,3];
end;

end;

procedure sendmoney;
begin
buf := HStr('D0 66 00');
WriteS(rich);
WriteD(0);
WriteS(rich);
WriteS(rich);
WriteD(1);
WriteD(ObjId);
WriteQ(countId);
WriteQ(0);
SendToServerEx(Name);
end;

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

begin
if FromServer and (ConnectName=Name) then
case pck[1] of
#$11: ItemList;
#$62:
begin
if (readd(2)=924) and (ConnectName=Name) and Wait(tick, interval) then
begin
sendmoney;
end;
end;
end;
end.

[supernewbie]

по факту он проверяет пошёл интервал или нет

[wimax]

#$62:
begin
if (readd(2)=924) and (ConnectName=Name) and Wait(tick, interval) then
begin
sendmoney;
end;
end;

моя задумка такова при получении пакета 62 если считываем и ровно 924 и конект наме = наме и должна ити задержка в заданный инверва и потом тока выполнятса процедура задержка не идет сразуже выполняиетса процедура(

[supernewbie]

тут тока таймер либо другой поток, а то пх будет ждать вместе с скриптом)

[wimax]

ясно спс буду испльзывать таймер тему можна закрывать