[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.