Помогите прикрутить таймер.

[Nickers]

Эх... вот создаешь темы, создаешь...

Вот способ с 2мя таймерами:
(Как в 1 уложить хз это думать головой нада)

const
  Name='Nickers'; //Ник
  N=3; //Сколько раз послать пакет

var
  timer, timer2 : TTimer;
  j:integer;

procedure OnTimer(Sender: TObject);
begin
  buf:= ; //Сюда пакет по типу: "buf:=#$FF#$01#$00#$00#$00;"
  SendToServerEx(Name);
  inc(j);
  if j=N then
    begin
      timer.enabled:=false;
      timer2.enabled:=true;
      j:=0;
    end;
end;

procedure OnTimer2(Sender: TObject);
begin
  timer1.enabled:=true;
  timer2.enabled:=false;
end;

procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.OnTimer:=@OnTimer;
  timer.enabled:=true;
  timer.interval:=1000; //1 сек

  timer2:=TTimer.Create(nil);
  timer2.OnTimer:=@OnTimer2;
  timer2.enabled:=false;
  timer2.interval:=6000; //6 сек
  j:=0;
end;

procedure Free; 
begin
  timer.free;
  timer2.free;
end;

begin
end.

Как-то так... Не проверял, ошибки не исключены...
(Прошу выложить способ с 1м таймером, мне будет интересно разобрать)

По вопросам скриптописания добро пожаловать в соответствующую >>>темку<<< (У меня в подписи)