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

[illusive]

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

Вот пример по идее при нажатии на определенную эмоцию он должен запускать таймер а тот в свою очередт отсылать раз 1 секунду сообщение в чат, но такое не происходит, если просто без таймера то все работает: нажимаешь кнопу отсылается сообщение

Помогите разобраться плиз

var timer: TTimer;

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

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

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

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




end.