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

[VLADOS_vdv]

У меня такой вопрос. как зделать чтоб вот этот, делал тоже самое только на ВСЕ ники чаров которые забиты в l2phx, без указания.

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.

[NLObP]

Сообщение от VLADOS_vdv

как зделать чтоб вот этот, делал тоже самое только на ВСЕ ники чаров которые забиты в l2phx, без указания

Использовать команду SendToServer вместо SendToServerEx