void __fastcall TForm1::OnDrawPanel(TStatusBar *StatusBar,
      TStatusPanel *Panel, const TRect &Rect)
{
    if(Panel == StatusBar->Panels->Items[2]) {
             StatusBar->Canvas->Brush->Color = color;
             StatusBar->Canvas->Font->Color = clRed;
             StatusBar->Canvas->FillRect(Rect);
             StatusBar->Canvas->TextOut(0,0,"AAAAAAAAAAAA");
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     color = clLime;
     StatusBar1->Repaint();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     color = clYellow;
}

이런식으로 했습니다. TextOut함수를 사용했는데 역시 안되네요.
혹시 Repaint때문에 그런가요?
좀 더 자세한 설명 부탁합니다.