TRead *ReadThread;      //開多執行緒(主Form之整體變數)
ReadThread = new TRead(false);//開啟執行緒(可放於FormActivate裡)
ReadThread->Terminate();//關閉多執行緒(可放於FormCloseQuery裡)    於BCB IDE還境File->New...->選Thread Object->名稱 TRead
void __fastcall TRead::Execute() 
{ FreeOnTerminate = true;//執行緒的自動被釋放
  while(1)
  { if(Form1->Tag==0) //決定執行緒要不要執行(可不加)
    { Form1->Delay(1000);//加自定的嚴遲函數(可不加)
      Synchronize(ChkTemp)//要執行的自定函數
      Application->ProcessMessages();//可不加
    }
    else
      Form1->Delay(2000);//加自定的延遲函數(可不加)
  }
}
void __fastcall TRead::ChkTemp(void)
{ 
...........看要處理什麼東西
..........
}