local cols, qt
local sent, received, updates = 0, 0, 0
function OnQuote(class_code, sec_code)
  -- отслеживаем котировки только по указанному инструменту
  if (class_code ~= CLASS) or (sec_code ~= SEC) then
    return
  end
  qt = getQuoteLevel2(class_code, sec_code) -- во втором скрипте убрать эту строку
  sent = sent + 1
end

local fmt = string.format
local function updateGrid()
  local s = sent
  if received < s then
    received = s
    fillCols(qt) -- во втором скрипте заменить на fillCols(getQuoteLevel2(CLASS, SEC))
    updates = updates + 1
    grid:BeginUpdate()
    colors = cols.colors -- cols заполняется внутри fillCols, colors используется при рисовании стакана внутри grid.OnPrepareCanvas (не показано тут)
    grid:SetCells(0,1,s) -- число вызовов OnQuote
    grid:SetCells(0,2,updates) -- число отрисовок стакана
    grid:SetCells(0,3,fmt('%.1f%%',(1-updates/s)*100)) -- процент потерь обновлений OnQuote
    local m,ti,mti = VCL.IsMultiThread()
    grid:SetCells(0,4,tostring(m)) -- System.isMultiThread
    grid:SetCells(0,5,tostring(ti)) -- ThreadId
    grid:SetCells(0,6,tostring(mti)) -- MainThreadId
    for c = 0,2 do
      for r,str in pairs(cols[c]) do
        grid:SetCells(c,r,str)
      end
    end
    grid:EndUpdate()
  end
end

is_run = true
function main()
    CreateAndShow()
    while is_run do
        sleep(1)
        updateGrid()
        app:ProcessMessages()
    end
end

local M=10000000
local t={}
count1 = collectgarbage("count") print("объем занятой памяти",count1//1);
for i=1, M do t[i]=i end
count1 = collectgarbage("count") print("объем занятой памяти массивом",count1//1);
t=nil  -- удаляем массив
count1 = collectgarbage("count") print("объем занятой памяти после удаления массива ",count1//1);
collectgarbage("collect") count1 = collectgarbage("count") print("объем занятой памяти после сборщика массива ",count1//1);
os.exit()

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "Test.lua" 
объем занятой памяти   58.0
объем занятой памяти массивом   262202.0
объем занятой памяти после удаления массива    262199.0
объем занятой памяти после сборщика массива    50.0
>Exit code: 0

function OnAllTrade(alltrade)