[NLObP]

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

case pck[1] of
#$ВС: begin

Пишешь #$DC, а проверяешь #$BC

Можешь сразу стартовать свою отсылку пакетов, исправив

procedure Init;
begin
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer;
  timer1.enabled:=true;
  timer1.interval:=10000; //10 секунд
  x:=0;
end;

посылка пакетов начнется через 10 сек после запуска скрипта,
а здесь сделай так

procedure OnTimer;
begin
  case x of
    0: begin
     usebuff(packet1,1);
     inc(x);
     timer1.interval:=200; //изменяем время на 200 мс 
    end;
    1: begin
     usebuff(packet2,0);
     inc(x);
    end;
    2: begin
     usebuff(packet1,1);
     inc(x);
     //откл.
     timer1.enabled:=false;
    end;
  end;
end;