Анимация ожидания

//---------------------------------------------------------------------------
void __fastcall TProgressShow::Execute()
{
    // Далее обращение без синхронизации :
    TCanvas *Canvas = MainControl->ProgressImage->Canvas;
    int Width = MainControl->ProgressImage->Width;
    int Height = MainControl->ProgressImage->Height;
    Canvas->Font->Color = clWhite; //  Запись в разделяемый объект -
    Canvas->Font->Size = 14;        //  теоретически может быть опасным
                            //  зависит от внутренних механизмов VCL
 
    // MainControl->LoadPercent - тоже разделяемый ресурс
    // и тут вопрос атомарности операций с int
    // теоретически тут тоже могут быть проблемы
 
    while (MainControl->LoadPercent != 100)
      {
       //  Тут все вроде гладко :
       //  дают возможность - рисуем
       //  нет - "висим в цикле",
       //  но я не уверен в том что рационально "висеть в цикле"
       //  почему нельзя просто "замереть" в ожидании? ( Canvas->Lock() )
        if (Canvas->TryLock() )
          {
            DrawTestRect(Canvas,Width,Height);
            DrawText(Canvas,Width,Height,IntToStr(MainControl->LoadPercent) + "% Percent Complete...");
            // если в друг где-тут возникнет исключение
            // канвас не разблокируется,будет deadlock,
            // приложение успешнО упадЁт,
            // выход- используем try / __finally
            Canvas->Unlock(); 
          }
        //  Вероятен случай что нам просто не дали прорисовать
        //  последние значения LoadPercent и мы просто выйдем из цикла
        //  так и не прорисовав их.
 
        Sleep(50);
      }
 
    // Следующие ф-ции непотокобезопастны,
    // почему без синхронизации ?
    // - явно может привести к падению приложения :
    DrawTestRect(Canvas,Width,Height);
    DrawText(Canvas,Width,Height,"Task Was Completed.");
}
//---------------------------------------------------------------------------