[NLObP]

Xen, вот где ошибка начинается:

Shield:
        begin
        buf:=WriteC(IDRequestMagicSkillUse);
        WriteD(Shield);                         
        WriteD(CtrlPressID);                 
        WriteC(ShiftPressID);                
        SendToServerEx(BufferName);    
        delay(BuffTime);                     
        end;

В переменную buf пиши id пакета либо так

buf:=hstr('39');

либо так

buf:=#$39;

Слева от команды WriteX() ничего не должно быть, она сама в buf пишет.

Команда delay(); не рекомендуется в скриптах (если только задержка не в пределах 200-500 мс). Она замораживает прогу вместе с клиентом.
Ниже еще опечатка в переменной, вместо UseBuffID написано UseBuff.