Repeat--Unitl用法

repeat        
      Inc(l_repeatTimes);
      DM.Log('m_HandPaper.Compresszf', nil);
      m_Return := m_HandPaper.Compresszf(); //压缩
      if (m_Return <> 0) then
         Synchronize(m_HandPaper.DoFailAsk);
     if m_HandPaper.m_RepeatTry = false then
       break;//结束repeat循环.
     if Self.Terminated or m_HandPaper.m_ManualStop then
       Exit; //响应中断
until (m_Return = 0) or (m_HandPaper.m_RepeatTry = False) or (l_repeatTimes >= m_HandPaper.m_MaxRepeatTimes);