Автозакупка из ГМ шопа(Помогите создать)

[TAMBIK]

 // =================================================================
  const
   Name='ххххх';

    var
    Timer01: TTimer;
   x :integer;

procedure OnTimer01(Sender:TObject);// процедурa таймера
begin
  case x of
  1: begin
     buf:=hstr('пакет №1');
     SendToServerEx(Name);
     inc(x);
     end;
  2: begin
     buf:=hstr('пакет №2');
     SendToServerEx(Name);
     inc(x);
     end;
  3: begin
     buf:=hstr('пакет №3');
     SendToServerEx(Name);
     inc(x);
     end;
   4:begin
     buf:=hstr('пакет №4');
     SendToServerEx(Name);
     Timer01.enabled:=false; // отключили таймер
     x:=0;
     end;
end;
end;
procedure Init;
begin
  x:=0;
  Timer01:=TTimer.Create(nil);
  Timer01.OnTimer:=@OnTimer01;
  Timer01.enabled:=false;
  Timer01.interval:=2000; //<<== время  интервал  1000 = 1 секунда
end;

procedure Free; 
begin
 Timer01.free;
end;
//-------------------------
begin 
 // при приходе пакета № 34 от клиента  и если выполнена соцдействие victory = 3 
  if FromClient and (pck[1]=#$34) and (ReadD(2) = 3) then begin // 
      x:=1; // указатель какое действие в процедуре таймера начать выполнять
      Timer01.enabled:=true; // включить таймер
      pck:='';
     exit; 
   end;    
end.

Добавлено через 2 минуты

можно сделать так что бы не приходилось ловит каждый раз по новой пакеты

посмотри тему автозаточка просто от MKS
там как запомнить пакет