[dev]

const
    characterName='dev';
    itemID=9428; // InventoryUpdate
    enchant=9;
    speed=250;
    
var  
    timer:TTimer;  
    x:byte;

procedure Init;  
    begin  
        timer:=TTimer.Create(nil);  
        timer.interval:=speed;
        timer.OnTimer:=@fireTimer;  
        timer.enabled:=true;  
        x:=1;
    end;

procedure Free;  
    begin  
        timer.Free;  
    end; 

procedure fireTimer(Sender: TObject);  
    begin  
        case x of  
            1:begin  
                buf:=hstr('19 C6 64 D4 10 00 00 00 00'); // UseItem
                SendToServerEx(characterName);  
                inc(x);  
            end;  
            2:begin  
                buf:=hstr('5F FD BC 02 10 00 00 00 00'); // RequestEnchantItem
                SendToServerEx(characterName);  
                x:=1;  
            end;  
        end;{case}
    end;

begin
    if FromServer then  
        begin  
            case pck[1] of  
                #$21: begin // InventoryUpdate
                    if (ReadD(12)=itemID) and (ReadD(34)=Enchant) then timer.enabled:=false;
                end;  
            end;
        end;
end.

Ядро от mks.
Модификация ядра от HORSE.
Конечный продукт от dev.

Enjoy.