[VORON]

ну когда люди начнут грамотно вопросы задавать?
париш моск а тебе всеголиш надо 10 бафов наложить? поочереди? с задержкой?
есть 2 варианта если бафов 2 штуки то используй то что ты написал...

2 пкета посланые на баф подряд- норм ощитываются серваком..
если 3 бафа то меду вторым и 3-м используй delay(6000) 6 секунд...
если бафов больше чем 3.. то используется таймер.. типа такого:

//*********************??? ??************************************************ ******************
procedure OnTimer1(Sender: TObject);
begin
bafSE[1]:=hstr('2F 2C 04 00 00 00 00 00 00 00'); //??
bafSE[2]:=hstr('2F 10 04 00 00 00 00 00 00 00'); //??
bafSE[3]:=hstr('2F 35 04 00 00 00 00 00 00 00'); //?????
bafSE[4]:=hstr('2F B4 04 00 00 00 00 00 00 00'); //??
bafSE[5]:=hstr('2F 0B 04 00 00 00 00 00 00 00'); //??????
bafSE[6]:=hstr('2F A5 04 00 00 00 00 00 00 00'); //?????? ? ?????
bafSE[7]:=hstr('2F D8 04 00 00 00 00 00 00 00'); //???????-???????
bafSE[8]:=hstr('2F DA 04 00 00 00 00 00 00 00'); //??? ??????- ???? ?????
bafSE[9]:=hstr('2F 36 04 00 00 00 00 00 00 00'); //???
bafSE[10]:=hstr('2F 23 04 00 00 00 00 00 00 00'); //???????
bafSE[11]:=hstr('2F F4 04 00 00 00 00 00 00 00'); //????
bafSE[12]:=hstr('2F 70 05 00 00 00 00 00 00 00'); //?????? ???? ???????

BafSEApplyChar[1]:=IDKomandos;
BafSEApplyBaf[1]:=bafSE[1];
BafSEApplyChar[2]:=IDKomandos;
BafSEApplyBaf[2]:=bafSE[2];
BafSEApplyChar[3]:=IDKomandos;
BafSEApplyBaf[3]:=bafSE[3];
BafSEApplyChar[4]:=IDKomandos;
BafSEApplyBaf[4]:=bafSE[8];
BafSEApplyChar[5]:=IDKomandos;
BafSEApplyBaf[5]:=bafSE[4];
BafSEApplyChar[6]:=IDKomandos;
BafSEApplyBaf[6]:=bafSE[7];
BafSEApplyChar[7]:=IDKomandos;
BafSEApplyBaf[7]:=bafSE[5];
BafSEApplyChar[8]:=IDKomandos;
BafSEApplyBaf[8]:=bafSE[6];

BafSEApplyChar[9]:=IDBot1;
BafSEApplyBaf[9]:=bafSE[2];
BafSEApplyChar[10]:=IDBot1;
BafSEApplyBaf[10]:=bafSE[9];
BafSEApplyChar[11]:=IDBot1;
BafSEApplyBaf[11]:=bafSE[4];
BafSEApplyChar[12]:=IDBot1;
BafSEApplyBaf[12]:=bafSE[5];
BafSEApplyChar[13]:=IDBot1;
BafSEApplyBaf[13]:=bafSE[6];
BafSEApplyChar[14]:=IDBot1;
BafSEApplyBaf[14]:=bafSE[10];
BafSEApplyChar[15]:=IDBot1;
BafSEApplyBaf[15]:=bafSE[12];

BafSEApplyChar[16]:=IDBot2;
BafSEApplyBaf[16]:=bafSE[10];

buf:=hstr('04') + BafSEApplyChar[tick1] + Bot1X + Bot1Y + Bot1Z + hstr('00');
SendToServerEX(NameBot1);

buf:=BafSEApplyBaf[tick1];
SendToServerEX(NameBot1);


tick1:=tick1+1;

if tick1=17 then
begin
tick1:=1;
timer1.enabled:=false;
buf:=hstr('04') + IDKomandos + Bot1X + Bot1Y + Bot1Z + hstr('00');
SendToServerEX(NameBot1);
buf:=hstr('04') + IDKomandos + Bot1X + Bot1Y + Bot1Z + hstr('00');
SendToServerEX(NameBot1);
end;
end;