[Fer123]

По твоим данным вот написал скрипт. Должен работать, я не проверял.
Впиши свой ник, поставь время задержки какое надо, по нпц торгашу 2 раза клацни.
Оффтоп

//автоматизация закупки
const
//==========================================================================================
   myname='xxx'; //<<== пишем свой НИК
//==========================================================================================   
var Timer : ttimer;
step:integer; actionpck:string;
//===================
procedure init;
begin
  timer := ttimer.create(nil);
  timer.interval := 1000; //vremya zaderzhki
  timer.enabled := false;
  step:=0;
end;
//=====================
procedure free;
begin
  timer.free;
end;
//=====================
procedure MultisellBypass(cmd1,cmd2 : string);
begin
  buf:=#$23;
  WriteS('menu_select?ask='+cmd1+'&reply='+cmd2);
  SendToServerEx(myname);
end;
//======================
Procedure BuyCOL(Sender:tobject);
begin
inc(step);
  case step of
     1: begin
             buf:=actionpck;
             SendToServerEx(myname);
        end;
     2: begin
             buf:=#$22;
             WriteS('zzz_relax_cat1_960.htm');
             SendToServerEx(myname);
        end;
     3:MultisellBypass('-11','19001'); //list id magazina col'ov
     4: begin
             buf:=#$B0;
             WriteD(19001);
             WriteD(3);//entryid
             WriteD(20); //Amount
             buf:=buf+HStr('00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
             SendToServerEx(myname);
             timer.enabled:=false;
        end;
  end;
end;
//======================
Procedure BuyWhatever(Sender:tobject);
begin
inc(step);
case step of
     1: begin
             buf:=actionpck;
             SendToServerEx(myname);
        end;
     2: begin
             buf:=#$22;
             WriteS('zzz_relax_cat1_905.htm');
             SendToServerEx(myname);
        end;
     3:MultisellBypass('-9','14001'); //list id vtoroi pokypki
     4: begin
             buf:=#$B0;
             WriteD(14001); //list id
             WriteD(37);//entryid
             WriteD(100); //kolichestvo
             buf:=buf+HStr('00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
             SendToServerEx(myname);
             timer.enabled:=false;
        end;
     end;
end;
//******************
begin
//Hello
if FromClient and (ConnectName=myname) and (pck=HStr('34 02 00 00 00')) then
   begin
   step:=0;
   timer.ontimer := @BuyCOL;
   timer.enabled := true;
   pck:='';
   end;
//Victory
if FromClient and (ConnectName=myname) and (pck=HStr('34 03 00 00 00')) then
   begin
   step:=0;
   timer.ontimer := @BuyWhatever;
   timer.enabled := true;
   pck:='';
   end;
if FromClient and (ConnectName=myname) and (pck[1]=#$1F) then Actionpck:=pck;
end.

Если не поможет то тогда надо еще вставить двойной Action по нпц.