Не страбатывает Таймер

[wimax]

const
Name='nik';

var timer: TTimer;

procedure Init; //Вызывается при включении скрипта
begin
    timer:=TTimer.Create(nil);
    timer.OnTimer:=@OnTimer;
    timer.enabled:=false;
    timer.interval:=1000;
end;

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

procedure OnTimer(Sender:TObject);
begin
    buf:= HStr('B9 57 76 00 31 00 32 00 33 00 00 00');
    SendToServerEx(Name);
end;
           
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if pck = '' then exit;

if FromClient and (ConnectName=Name) and (pck = Hstr('C9 57 66 15 05 00 00 00 00 00')) then
    begin
        timer.enabled:=true; 
    end;
end.

вот держы работает все тока я не пойму зачем тебе спам?
чтоб убрать спам
добавь в начале таймера
timer.enabled:=false;