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

[iSee]

Вот вставил,все сделал,но почемуто не работает,проверял пакет он робочий,при отправке превращает монету в 2 ккк,но в скрипте не работает,что не так сделал?!Подскажите пожалуйстa


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('------------------------------' );
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;