скрипт выполняется для каждого пакета?

[jony26]

по идее это должно быть так, но, вот я написал скриптик

begin
if FromServer then
begin
buf:=HStr('38 61 00 31 00 00 00 02 00 00 00 42 00 6F 00 72 00 6F 00 6C 00 67 00 69 00 6E 00 00 00'); //a1
SendToServer;
end;
end.

который, как я понимаю, должен после каждого принятого пакета с сервера писать мне в личку текст "a1", но, происходит это только 1 раз, то есть мой скрипт срабатывает только 1 раз, а не при каждом входящем пакете.
Что нужно сделать чтобы скрипт срабатывал при каждом полученном пакете в сервера?