在Delphi中，可以通過Thread對象的ThreadState屬性來查看線程的狀態。
例如，假設有一個名為myThread的線程對象，可以使用以下代碼來查看線程的狀態：
if myThread.ThreadState = TThreadState.tsRunning then ShowMessage(‘線程正在運行’) else if myThread.ThreadState = TThreadState.tsSuspended then ShowMessage(‘線程已暫停’) else if myThread.ThreadState = TThreadState.tsTerminated then ShowMessage(‘線程已終止’) else if myThread.ThreadState = TThreadState.tsFinished then ShowMessage(‘線程已完成’) else if myThread.ThreadState = TThreadState.tsCreating then ShowMessage(‘線程正在創建’) else if myThread.ThreadState = TThreadState.tsFreeOnTerminate then ShowMessage(‘線程將在終止時釋放’) else if myThread.ThreadState = TThreadState.tsCritical then ShowMessage(‘線程處于關鍵狀態’) else ShowMessage(‘未知線程狀態’);
需要注意的是，ThreadState屬性返回的是一個枚舉值，因此需要使用條件判斷語句來判斷線程的實際狀態。
