переписать скрипт в 2 строчки под phx

[Lynx]

Работает. Надо просто указать в настройках порт 2106 палить.
У меня проблема только с тем, что пх не считает пакеты для данного соединения.
Вопрос :
1 можно ли в скрипте проверять, к какому ip конект? чтобы править только Логин Серв
2 как считать пакеты для каждого соединения отдельно? так не пашет

var
a:integer;   
procedure OnConnect ;
begin
a:=0;
end;  
begin
if a<20 then inc(a);
if (fromserver) and (pck[1]=#0) and (a=1) then pck:=hstr('00 0B 00 00 00 00 00 00 00 78 5a')   ;                  

end.