Перебор мультиселлов.

[hetag6]

Помогите пожалуйста с перебором мультиселлов.Видел уже подобную тему на форуме там был показан вот этот скрипт:

var
i:int64;


procedure Init;
begin
i:=1; {Тут вбиваем номер с которого мультиселла начнём брутить}
end;


begin
if FromClient and (pck[1]=#$56) then
begin
pck:='';
buf:=#$23;
WriteS('menu_select?ask=-303&reply='+inttostr(i));
SendToServer;
inc(i);
end;
end.

но он не фурычит. Помогите пожалуйста. Хроники фрея.