Скрипт с таймером

[Deffol]

Привет всем.
Помогите пожалуйста со скриптом. Он простенький, но без таймера у меня не получилось, а в таймере я не пойму как реализовать.

В общем вот скрипт без таймера:

delphi код

begin 

    if FromClient and (pck=HStr('B2 00 57 71 FF 00 33 04 3E 04 00 00')) then //Пакет активации

        begin   

            buf:=HStr('CC 00 57 6B FF 77 95 06 00 00');

            SendToServer;  

            buf:=HStr('9A 00 57 59 FF 0C 0D 00 00 01 00 01 00 77 95 06 00 01 00 00 00 00 00 00 00');

            SendToServer;

            pck:='';

        end;    

        

    if FromServer and (ReadC(1)=$B7) and (ReadC(14)=$77) and (ReadC(22)=$00) then

        begin

            buf:=HStr('9A 00 57 59 FF 0C 0D 00 00 02 00 01 00 77 95 06 00 01 00 00 00 00 00 00 00');

            SendToServer;

            buf:=HStr('B2 00 57 71 FF 00 33 04 3E 04 00 0'); // пакет активации

            SendToServer;

        end;   

end.

В общем пакет активации в 1-м действии ( в начале ) и во 2-м ( в конце ) одинаковый. Но Скрипт не начинает эту цикличность, когда пакет активации посылается через л2пх, скрипт будто его не замечает. Вот как это в таймере реализовать не знаю, знаю только как с часиками, но мне интервалы не нужны, вот и не пойму.