Вот взял скрипт для Interlude от TRAMBIK (а)
if FromServer and (pck[1]=#$81) then case ReadD(2) of 0: begin CurrentEnch:=CurrentEnch+1; end; Enchant:begin Timer01.enabled:=false; end; end;