Скрипт для поиска мультиселлов (корявый)

[hunterNOZ]

Помогите поправить скрипт .

Скрипт ищет с msd номера мультиселла до msp .

const
msd=0; //типо начало
msp=777; //типо конец

var
ms:integer;
mss:string;

begin
for ms:=msd to msp do
Begin
delay(50);
mss:=inttostr(ms);
//отправка пакета с номером
buf:=#$23;
WriteS('_bbsshop_multisell '+mss);
SendToServer;
delay(50);
//проверка прихода пакета на открытие мультиселла
if FromServer and (pck[1]=#$D0) then
begin
delay(50);
//отправка в чат клиента найденного мультиселла
buf:=#$4A;
WriteD(0);
WriteD(0);
WriteS('Search');
WriteS('Multisell '+mss);
SendToClient;
end;
end;
end.

Проблема в том что скрипт вешает л2пкх , но иногда срабатывает ... а потом всеровно вешает