[QaK]

Ребят, вы чего огород городите?

///////////////////////////////////////// buff's//////////////////////////////////////////////
procedure Ontimer2 (Sender: TObject);
begin if x=1 then begin  //выделяем командира, эмулируя щелчек мыши
                                buf:=hstr('04')+IDKomandos+Bot1X+Bot1Y+Bot1Z+hstr('00');
                                SendToServerEX(NameBot1);
                                inc(x);
                                end
else begin buf:=bafWC[x-1];
              SendToServerEx(NameBot1);
              inc(x);
              if x=9 then begin x:=0;
                                     timer2.enabled:=false;
                             end; 
      end;
end;

так не проще?