[newworld]

     
    case pck[1] of
       //......................................
      #$11: begin
        //debugmsg('S>C Пакет ItemListPacket #$11');
        ItemList;   
      end;
      //......................................
      #$21: begin
        //debugmsg('S>C Пакет InventoryUpdate #$21');
        InventoryUpdate;    
      end;
      //......................................
      //Пакет ChooseInventory
      #$7C: begin 
        flag7C:=false;
        if ready then begin //and (readd(2)=itemid)
          //ищем подходящий предмет для заточки
          timer.enabled:=false; //отключаем пока не найдем предмет для заточки
          repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;
          //************************************************
          if (CurEnchLvl>=strtoint(Edit1.Text)) then begin
            msg.Lines.Add('Нет подходящих предметов для улучшения! Прервано!');
            msg.Lines.Add('Достигли MaxEnchLvl!');
            timer.enabled:=false;
            ready:=false;
            delay(500);
            RequestEnchantItem(-1);
            exit;
          end else begin
            msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
            flag7c:=true;         
            ready:=false;
            timer.enabled:=true; 
            delay (500);
            exit;
           end;
        end;
      end;  
      #$FE: begin
              if pck[2]=#$81
                 then begin
                        flagFE:=true; 
                        delay (2000); 
                        exit;
                      end;   
            end;
      #$87: begin
        if readd(2)=0 
           then begin
                  msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
                  inc(good); 
                  flag87:=true; 
                  delay (500);
                  exit;
                end   
           else begin
                  msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
                  inc(broken);
                  flag87:=true; 
                  delay (500);
                  exit;
                end;
        end;
   end;     
    CurEnchLvl:=0;       //начнем с начала. Расскоментировать для блессет скроллов
    if flag7C=true

После компилирования строка с CurEnchLvl:=0; выделяется красным.
Что делать????
PS красным выделены мои дополнения, изменения.