[3xdimon]

Все)
Совместил
#$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);
CurEnchLvl:=10; //выставляем текущий уровень при фэйле и при точке блесседами
end;
end;
end;

С интерлюдовским кодом, еще кучу всякой фигни поставлял) Терь не виснет) И Если надо заточить на 20, то надо вводить максимальную заточку 19) т.е. вводить на 1 меньше)