Остановка QUIK или странное поведение

t={}

function OnInit()
local d, mn, y
bar=0

   CreateTable()
   
end

function CreateTable()

   t = QTable.new()
   if not t then
      message("error!", 3)
   end
   
   t:AddColumn("Time", QTABLE_CACHED_STRING_TYPE, 20)
   t:AddColumn("Deals inf and etc.", QTABLE_CACHED_STRING_TYPE, 120)
   t:AddColumn("Ballance", QTABLE_CACHED_STRING_TYPE, 40)
   t:SetCaption("Our Deals Table")
   t:Show()   
   for i=1,TotalString do t:AddLine() end

end 

function PrintTable(timestring, comment, txt_balance)
  local tmp_txt=""
   
   if f==TotalString then
      f=0
      t:Clear()
      t:delete()  -- !!! Ранее это строки не было !!!
      CreateTable() -- !!! Ранее это строки не было !!!

   end

   f=f+1

 SetCell(t.t_id, f, 1, timestring)
 SetCell(t.t_id, f, 2, comment)
 SetCell(t.t_id, f, 3, txt_balance)

 if txt_balance==nil or txt_balance=="" then 
    txt_balance=" "
 end
 tmp_txt=tostring(f)..": "..timestring..": "..comment.." : "..txt_balance.."\n"

 file3:write(tmp_txt)

end
 

 function main()
  t_id=AllocTable()
  AddColumn(t_id,1,"QWERTY",true,QTABLE_INT_TYPE,10) --Y
  CreateWindow(t_id)
  SetWindowCaption(t_id,"Script message.")
 i=1
while true do
  for j=i,i+10000 do
   tmp=InsertRow(t_id,-1)
   SetCell(t_id,tmp,1,tostring(j),j)
  end
  i=i+10000
  sleep(1000)
  Clear(t_id)
end
end