[wimax]

procedure UseItem(ObjectID: integer);
begin
  buf:=#$19;
  WriteD(ObjectID);
  WriteD(0);
  SendToServer
end;
//......................................
procedure RequestPutEnchantItem(ObjectID: integer);
begin
  buf:=#$D0;
  WriteH(76);
  WriteD(ObjectID);
  SendToServer;
end;

//......................................
procedure RequestEnchantItem(ObjectID: integer);
begin
  buf:=#$5F;
  WriteD(ObjectID);
  WriteD(0);
  SendToServer
end;

от скрипта NLObP замени функции на которые выше

Добавлено через 9 минут
http://coderx.ru/showpost.php?p=22135&postcount=95
а точней вот вроде робочии уже