[NeuroFuNk]

Большое спасибо!!!буду пробывать...

Добавлено через 1 час 6 минут

procedure onTimerItemSelect(Sender: TObject);
begin   
case EnchantItemSelectCycle of
1:begin  //UseItem
    if (ScrollAmount<2) then 
    begin
     RequestMagicSkillUse (MaJIbBuHka, 5274);
     RequestMultiSellChoose (GMshop, 70011, 1000000, 2);
    end;           
    if GetEnchantLevel(EnchantedObjectId)<EnchantLevel then UseItem(ScrollObjectId);   
    Inc(EnchantItemSelectCycle);    
  end;
2:begin
    RequestExTryToPutEnchantTargetItem(EnchantedObjectID);    
    TimerEnchantItem.Enabled:=True;
    EnchantItemSelectCycle  :=0;         
    TimerItemSelect.Enabled :=False;
   end;
end;
end;

ошибка...проверил в синтаксисе 'Begin' expected....