Кружок нубов(Вопрос-Ответ)

[something]

const
      Name='MyName'; 
var
  timer:TTimer;
  i,j: integer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=500;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
  Say('Начали');
  i:=0; j:=0;
end;
procedure Free;
begin
  timer.Free;
end;
procedure Say(msg:string);
begin
  buf:=#$4A;
  WriteD(123);
  WriteD(10);
  WriteS('хмм');
  WriteS(msg);
  SendToClientEx(Name);
end;
procedure fireTimer(Sender: TObject);
begin
   if odd(i) then
      begin
         buf:=hstr('пакет1');
         SendToServerEx(Name);
      end
   else
      begin
         buf:=hstr('пакет2');
         SendToServerEx(Name);
      end;
   inc(i);
   inc(j);
    if j = 7 then begin
                   buf:=hstr('пакет3');
                   SendToServerEx(Name);
                   j:=0;
                  end;
  Say(IntToStr(i)); //для себя, узнать сколько циклов прошло
  end;
begin
  if i > 999 then timer.enabled:=false; //ограничение
end.

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