Цветные строки в ListBox'е Builder'а

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ListBox1->Style = lbOwnerDrawFixed; //или lbOwnerDrawVariable
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AddLog("текст", txt_clr); //txt_clr - цвет строки типа TColor (clRed, clBlue, и т.д. или
                              //RGB(r, g, b), где r, g, b = 0-255)
}
 
//пользовательская функция
void __fastcall TForm1::AddLog(const AnsiString str, const TColor str_clr)
{          
    ListBox1->Items->AddObject(str, (TObject *)str_clr);
}
 
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{
    TColor new_clr = TColor(ListBox1->Items->Objects[Index]);
    AnsiString str = ListBox1->Items->Strings[Index];
 
    ListBox1->Canvas->FillRect(Rect); //закрашиваем прямоугольник Rect, в котором будет выводиться
                                      //конкретный элемент TListBox, текущей кистью для предотвращения
                                      //появления артефактов изображения (см. вторую ссылку в конце поста)
                                      //при выделении элемента списка
 
    ListBox1->Canvas->Font->Color = new_clr;
    ListBox1->Canvas->TextOut(Rect.Left, Rect.Top, str);
}