Обьясните новичку

[klemberg]

Написал специально без комментариев, чтобы жизнь малиной не казалась.
Скрипт полностью отвечает твоим условиям.

var
     Z_TIMER: TTimer;
     NEXT_PCK: integer;


procedure Init;
begin
     Z_TIMER:=TTimer.Create(nil);
     Z_TIMER.OnTimer:=@On_TIMER();
     Z_TIMER.enabled:=true;
     Z_TIMER.interval:=10000;

     NEXT_PCK:=1;
end;


procedure Free;
begin
     Z_TIMER.enabled:=false;
     Z_TIMER.Free;
end;


procedure SEND_NOTICE(msg:string);
begin
     buf:=#$4A;
     WriteD(0);
     WriteD(3);
     WriteS('');
     WriteS(msg);
     SendToClientEx('Allineer');
end;


procedure On_TIMER(Sender: TObject);
begin
     case NEXT_PCK of
          1: begin
                  SEND_NOTICE('Пакет 1');
                  NEXT_PCK:=2;
             end;
          2: begin
                  SEND_NOTICE('Пакет 2');
                  NEXT_PCK:=3;
             end;
          3: begin
                  SEND_NOTICE('Пакет 3');
                  NEXT_PCK:=1;
             end;
     end;
end;


begin
end.

alexteam, камменты в коде из 7 поста ржачные)