Кружок нубов(Вопрос-Ответ)

[tiranosaur]

#$87: begin
if readd(2)=0 then begin
msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(good);
end else begin
msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(broken);
end;
// CurEnchLvl:=0; //начнем с начала. Расскоментировать для блессет скроллов
end;

как в этой части сделать чтобы к переменной предположим Х добавлялась 1 при поломке? знаю в си имеет вид Х+=1

и еще помогите пжл запустить бота рыбака в OUT режиме. чет ошибки на отключение выдает. использую версии phx 3.5.28.151 и 3.5.33.164 выдает ошибки на дисконнект

или подскажите пжл где искать. запарился ужо