: void __fastcall TBThread::Execute()
: {
:   while(!Terminated)
:   {
:     CriticalSection.Lock();
:     UpdateThread();
:     CriticalSection.Unlock();
:   }
: }
Thread 가 Terminate 되기 전에는 계속 실행하게 되어 있군요
Execute가 한 번 만 실행되고 Thread 를 종료하도록 만들어야 합니다.

: void __fastcall TBThread::Execute()
: {
:     CriticalSection.Lock();
:     UpdateThread();
:     CriticalSection.Unlock();
: }

이렇게 해서 한 번 만 실행하고 종료하도록 하세요.