Помогите пожалуйста

[Nickers]

procedure OnTimer03(Sender: TObject);
begin 
 buf:=#$58;
 WriteD(enchantID);
 SendToServerEx(myname);
 Timer03.enabled:=false;
SendMsg2( '    .....  Точим  Предмет ..... ' );
SendMsg2( ' ID : '+IntToStr(itemID)+'  и  ObjectID  :  '+IntToStr(enchantID)+'     до  :  '+IntToStr(maxlvl)+' ' );
 SendMsg2( '------------------------------------- ' );
enchantID:=0;
if (GetItem(57,3,4)<500000000) then
   begin
      Repeat
         begin
            buf:=#$A7#$A4#$BD#$98#$00#$40#$0D#$03#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
            SendToServer;
         end;
      Until (GetItem(57,3,4)<500000000);
   end;
end;

...
enchantID:=0;
...

Может это зависит от типа скрипта...
У тебя та же версия скрипта?

И как именно не равботает?
Скрипт не запускается?
Запускается но не пишет сис. сообщений(или другие неполадки)?
или делает все так же, но адена кончается(Проверка не исправна)?