if inventory.User.ByID(57, Item) and (Item.count > 250000) then
begin
Engine.SendMail('Ник', 'тема', 'комент',[id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во]);
delay(1000);
end;

//Send All items, or count of items
function getItemById(id: integer): TL2Item;
var
   tmpItem: TL2Item;
   i: integer;
begin
   Result := nil;
   if Inventory.User.ByID(id, tmpItem) then
      Result := tmpItem;
end;

Procedure SendItem(ItemID:integer;Count:integer=0);
if count=0 then
Engine.SendMail(recipient, 'Mail N'+Random(999).ToString , '' ,[itemid,getItemById(itemid).count]) else
Engine.SendMail(recipient, 'Mail N'+Random(999).ToString , '' ,[itemid,count]);
end;

//Example
begin
  while delay(100) do
begin
  if getItemById(57).count>10000000 then SendItem(57,9900000);//check adena and send
end;
end.