graph TD
    Start([開始 DestroyEvent]) --> FreeList[釋放大量 TStringList 物件<br/>(Doc_Inf_List, FORM_INF_List, CaseList, ContextList...)]
    FreeList --> CheckMode{FMode 是否為<br/>'DSCAN' 或 'ESCAN'?}
    CheckMode -- 是 --> CheckPath{ImagePath 非空?}
    CheckMode -- 否 --> CheckEvents
    CheckPath -- 是 --> DelTree[呼叫 _Deltree 刪除 ImagePath 目錄]
    CheckPath -- 否 --> CheckEvents
    DelTree --> CheckEvents
    CheckEvents{FEvents 非空?}
    CheckEvents -- 是 --> TriggerEvent[觸發 FEvents.OnDestroy]
    CheckEvents -- 否 --> End([結束])
    TriggerEvent --> End