Совет: Добавьте строчку в скрипте, чтобы во время обмена у фишермена очищался контрол msg. Иначе через несколько часов происходит его переполнение и скрипт падает с ошибкой "List index out of bounds (4999)"
Код:
//***************************************************************
// Вся торговля здесь!!!
//***************************************************************
procedure OnTrade(Sender: TObject);
begin
msg.Lines.Clear();
case trade of
//-------------------------------------------------
//продаем фишерману из массива TradeSellItem
//-------------------------------------------------
200: begin