Быстрый вывод данных из потока

template <typename Type> class UpdateVariable
{
 private:
  Type FValue;
  bool FIsUpdate;
 
  Type GetValue()               { FIsUpdate = false; return FValue; };
  void SetValue(Type Value_)    { FIsUpdate = true; FValue = Value_; };
 
 public:
       UpdateVariable()         { FIsUpdate = false; }
 
  __property Type Value       = { read = GetValue, write = SetValue };
  __property bool IsUpdate    = { read = FIsUpdate };
  void operator = (Type Value_) { SetValue(Value_); };
};

/* Объявление переменных в хедере класса потока*/
UpdateVariable<String>            Caption;             //Заголовок окна
UpdateVariable<String>            pTask_Caption;       //Информация о текущей задаче
UpdateVariable<String>            pResult_Caption;     //Информация о результате выполнения задачи
UpdateVariable<int>               pbProgress_Max;      //Конечное значение полосы прогресса
UpdateVariable<int>               pbProgress_Position; //Текущее положение полосы прогресса
 
 
/* Функция обновления данных в окне */
void __fastcall TThreadM230::RefreshProgressForm()
{
 if(Caption.IsUpdate)             ProgressForm->Caption              = Caption.Value;
 if(pTask_Caption.IsUpdate)       ProgressForm->pTask->Caption       = pTask_Caption.Value;
 if(pResult_Caption.IsUpdate)     ProgressForm->pResult->Caption     = pResult_Caption.Value;
 if(pbProgress_Max.IsUpdate)      ProgressForm->pbProgress->Max      = pbProgress_Max.Value;
 if(pbProgress_Position.IsUpdate) ProgressForm->pbProgress->Position = pbProgress_Position.Value;
}
 
 
/* Применение в главной функции потока */
void __fastcall TThreadM230::Execute()
{
 Caption = L"Чтение данных";
 pTask_Caption = L"Чтение почасовых данных";
 pbProgress_Max = 1000;
 
 while(!Terminated || ReadData() != 0)
  {
   pResult_Caption = L"Прочитано: " + String(ReadData());
   pbProgress_Position.Value++;
   Synchronize(&RefreshProgressForm);
  }
}

__property TCaption Caption = {read=GetText, write=SetText, stored=IsCaptionStored};

while(!Terminated || ReadData() != 0)
  {
   pResult_Caption = L"Прочитано: " + String(ReadData());

__fastcall CarThread::CarThread(bool CreateSuspended) : TThread(CreateSuspended) {
 
}
 
//---------------------------------------------------------------------------
template<typename T>
void SetValue(T &Source, const T &Val, bool &bChanged) {
    if (Source != Val) {
        Source = Val;
        bChanged = true;
    }
}
 
//---------------------------------------------------------------------------
bool __fastcall CarThread::GetDataFromCar() {
    bool bSomethingChanged = false;
 
    // секция данных, которые очень быстро и часто меняются
    {
        SetValue<int>(FSpeed, Random(160), bSomethingChanged);
        SetValue<int>(FRate, Random(6000), bSomethingChanged);
 
        static int ALastDisplayTime = GetTickCount();
        // если данные изменились, но еще не прошло 60 мсек, то сбрасываем флаг
        if (bSomethingChanged && (GetTickCount() - ALastDisplayTime > 60)) {
            ALastDisplayTime = GetTickCount();
        }
        else {
            bSomethingChanged = false;
        }
    }
 
    // секция данных, которые очень редко меняются
    {
        // сымитируем смену данных раз в секунду и любое изменение будем отображать
        static int iCountRearData = GetTickCount();
        if (GetTickCount() - iCountRearData > 1000) {
 
            SetValue<TCarGear>(FGear, TCarGear(Random(TCarGear::cgThree)), bSomethingChanged);
            SetValue<TCarGlassWiper>(FGlassWiper, TCarGlassWiper(Random(TCarGlassWiper::cgwHigh)), bSomethingChanged);
            SetValue<UnicodeString>(FCarMessage, CarMessages[Random(3)], bSomethingChanged);
 
            iCountRearData = GetTickCount();
        }
    }
 
    return bSomethingChanged;
}
 
//---------------------------------------------------------------------------
void __fastcall CarThread::RefreshData() {
    Form2->LabelSpeed->Caption = UnicodeString().sprintf(L"Текущая скорость=%d", FSpeed);
    Form2->LabelRate->Caption = UnicodeString().sprintf(L"Тахометр=%d", FRate);
    Form2->LabelMessage->Caption = FCarMessage;
 
    Form2->TrackGear->Position = FGear;
    Form2->TrackWiper->Position = FGlassWiper;
}
 
//---------------------------------------------------------------------------
void __fastcall CarThread::Execute() {
    //---- Place thread code here ----
    while (!Terminated) {
        if (GetDataFromCar()) {
            Synchronize(&RefreshData);
        }
        // даём "подышать" приложению
        Sleep(16);
    }
}
//---------------------------------------------------------------------------

#define if (a) if( (a) && rand() )

rand()%10