[Shadow]

Вот созрел извращенный вариант:

procedure ScrollBase(ChosenScroll: integer, var BuyLID, BuyEID: integer, InBaseID: boolean);
//Base
if ChosenScroll=730 then begin
  BuyLID:=559
  BuyEID:=15
  InBaseID:=true;
end;
if ChosenScroll=6757 then begin
  BuyLID:=559
  BuyEID:=35
  InBaseID:=true;
end;
//тут не знаю как выдать если ничего не нашли...
else   
 InBaseID:=false;
end;
procedure BuyItem(BuyLID, BuyEID, BuyDelay, ItemCount: integer);
begin
  for Cnt:=1 to ItemCount do begin
  RequestMultiSellItem(BuyLID, BuyEID, 1);
  delay(BuyDelay);
  end;
end;
//..................................... код ...............................................
EnchantItem;
//запрос в базу перед покупкой
ScrollBase(ChosenScroll, BuyLID, BuyEID, IDKnown);
 if InBaseID BuyItem(BuyLID, BuyEID, BuyDelay, ItemCount) else типа пишем - не найден в базе
 timer.enable:=false;

ChosenScroll, BuyDelay, Count соотвественно берутся из формы.