graph TD
    Start([開始 Timer2Timer]) --> CheckDots{Panel22.Caption 是否等於<br/>ShowText + '......'?}
    CheckDots -- 是 --> Reset[Panel22.Caption := ShowText]
    CheckDots -- 否 --> AddDot[Panel22.Caption := Panel22.Caption + '.']
    Reset --> ProcessMsg[Application.ProcessMessages]
    AddDot --> ProcessMsg
    ProcessMsg --> End([結束])