[CapsLock]

#$6F: if ready then begin //and (readd(2)=itemid)
//ищем подходящий предмет для заточки
timer.enabled:=false; //отключаем пока не найдем предмет для заточки
repeat
ItemOID:=GetItem(ItemID,CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
//************************************************
msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
RequestEnchantItem(ItemOID);
ready:=false;
timer.enabled:=true; //пока в тесте отключаем (вкл. после заточки предмета)
end;
#$81: if readd(2)=2 then begin
CurEnchLvl:=3; //начнем с начала
end;
end;
end.

Добавлено через 2 минуты
вот парни концовка скрипта, который пашет,посмотрите плиз,помоему сделал всё так,как вы грили

Добавлено через 3 минуты
когда яврубаю скрипт всё робит и всё кул) но когда пухи ломаюца то он тупо перестаёт работать