[-=Ma}{imuS=-]

подскажите что в этом скрипте не так, ставлю галочку но он не танцует, и через 2 минуты тоже не танцует:

var
  Timer1 : TTimer; 
  q : Integer;  // счетчик 
procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 120000;  // задержка таймера 12к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
  Timer1.Free;
end;
procedure OnTimer;
begin
buf:=HStr('2F 0F 01 00 00 00 00 00 00 00');     //attack
SendToServer;

buf:=HStr('2F 13 01 00 00 00 00 00 00 00');     //haste
SendToServer;

buf:=HStr('2F 12 01 00 00 00 00 00 00 00');     //focus
SendToServer;
  Inc(q);
  if q = 4 then  // если выполнилось уже 4 раза, то останавливаем таймер
    Timer1.Enabled := False;
end;
begin
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.