Цвет заливки ProgressBar?

// in hpp
class TForm1 : public TForm
{
__published:
  TTrackBar *TrackBar;
private:
  MESSAGE void __fastcall WMNotify(TMessage& Msg);
public:
  __fastcall TForm1(TComponent* Owner);

  BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(
                 WM_NOTIFY, TMessage, WMNotify)
  END_MESSAGE_MAP(TForm)
};

// in cpp
void __fastcall TForm1::WMNotify(TMessage& Msg)
{
  // получаем указатель на NMHDR struct
  LPNMHDR pnmh = reinterpret_cast
                 <LPNMHDR>(Msg.LParam);

  // если поле code равно NM_CUSTOMDRAW and
  // поле from есть наша trackbar
  if (pnmh->code == NM_CUSTOMDRAW && pnmh->hwndFrom==TrackBar->Handle)
  {
    //
    // рисуем...
    // NMHDR - смотри в MSDN
    // а вообще Я наверно не прав, легче взять CGauge
    return;
  }

  // обработчик по умолчанию...
  TForm::Dispatch(&Msg);
}