[TAMBIK]

Скажите вот кусок из скрипта :

//=============================================
 if FromServer and (pck[1]=#$21) then 
        case ReadD(12) of
         1061,1539: begin//Зелье Исцеления ID:1061
                    hpID:=ReadD(8);
                    SendMsg2('запомнил:  З е л ь е    Исцеления')
                     end; 
         734,1374: begin//Зелье Ускорения ID:734
                   uskorID:=ReadD(8); 
                   Timer2.enabled:=true;
                    SendMsg2('запомнил:  З е л ь е     Ускорения');
                    end;
         735,1375: begin//Зелье Быстрой Атаки ID:735
                    atakID:=ReadD(8); 
                    Timer3.enabled:=true;
                    SendMsg2('запомнил:  З е л ь е     Атаки'); 
                   end;
            и т.д      
 //==================================================

Можно как то подругому проще это все выполнить
ОПТИМИЗИРОВАТЬ действия