void __fastcall TForm1::ListView1CustomDrawSubItem(TCustomListView *Sender,
      TListItem *Item, int SubItem, TCustomDrawState State,
      bool &DefaultDraw)
{
   switch(SubItem)
   {
      case 0:
         ListView1->Canvas->Brush->Color=clBlue;
         ListView1->Canvas->Font->Color=clWhite;
         ListView1->Canvas->Font->Size=9;
         break;
      case 1:
         ListView1->Canvas->Brush->Color=clGreen;
         ListView1->Canvas->Font->Color=clBlack;
         ListView1->Canvas->Font->Size=9;
         break;
      case 2:
         ListView1->Canvas->Brush->Color=clRed;
         ListView1->Canvas->Font->Color=clYellow;
         ListView1->Canvas->Font->Size=10;
         break;
      case 3:
         ListView1->Canvas->Brush->Color=clAqua;
         ListView1->Canvas->Font->Color=clGray;
         ListView1->Canvas->Font->Size=11;
         break;
      case 4:
      //..........
   }
}