[TEHb]

Суть проблемы следующая когда таймер активируется счетчик i увеличивается а пакеты не отсылаются

var Timer01:TTimer;
    i:integer;
procedure Init; //Вызывается при включении скрипта
begin
    Timer01:=TTimer.Create(nil);
    Timer01.OnTimer:=@Ontimer01;
    Timer01.Interval:=5000;
    Timer01.enabled:=false;
    i:=0;
end;

procedure Free; //Вызывается при выключении скрипта
begin
    Timer01.free;
end;

Procedure OnTimer01(Sender: TObject);
begin
    buf:=HStr('17 54 D4 04 01 80 1D 26 00 1C 04 35 04 47 04 3D 04 38 04 3A 04 00 00 ');
    WriteS('Таймер сработал');
    SendToClient;
    inc(i);
    if i=10 then Timer01.Enabled:=false;
end;

begin
    if FromClient and (pck[1]=#$B2) then  
    begin
        Timer01.enabled:=true;
        buf:=HStr('17 54 D4 04 01 80 1D 26 00 1C 04 35 04 47 04 3D 04 38 04 3A 04 00 00 ');
        WriteS('Тест');
        SendToClient;
        i:=0;
    end;
end.

т.е. сообщение "тест" приходит в чат а сообщение "таймер сработал" нет

хотя счетчик i увеличивается вижу через watchlist притом он увеличивается до 10 и останавливается
слкдовательно процедура Ontimer01 срабатывает почему не шлются пакеты?