[Nickers]

Да на счет 1 я лажанул =)))

Попробуй так? А то я хз в чем ошибка)) (Напиши саму ошибку...)

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

var
  timer, timer2 : TTimer;
  packet:array[1..N] of string;
  j:integer;

procedure OnTimer(Sender: TObject);
begin
  timer2.enabled:=false;
  inc(j);
  buf:=packet[j];
  SendToServerEx(Name);
  if j=N then
    begin
      timer2.enabled:=true;
      j:=0;
      timer.enabled:=false;
    end;
end;

procedure OnTimer2(Sender: TObject);
begin
  timer.enabled:=true;
end;

procedure Init;
begin
  packet[1]:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // 1 пакет
  packet[2]:=Hstr('D0 0F 00 D3 04 00 00 92 01 00 00'); // 2 пакет
  packet[3]:=Hstr('D0 00 00 00 00 00'); // 3 пакет.

  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.