Цвет выделения в ListView

void __fastcall TForm1::ListView2CustomDrawItem(TCustomListView *Sender,
      TListItem *Item, TCustomDrawState State, bool &DefaultDraw)
{
        if (Item->Index ==ListView2->ItemIndex)
        {
             Sender->Canvas->Font->Color = clRed;
        }
 
}

void __fastcall TForm1::ListView1SelectItem(TObject* Sender, TListItem* Item,
      bool Selected)

void __fastcall TForm1::ListView1DrawItem(TCustomListView* Sender,
    TListItem* Item, TRect& Rect, TOwnerDrawState State)
{
    TRect v_Rect;
    TListView* ListView1 = dynamic_cast<TListView*>(Sender);
    TCanvas* Canvas = Sender->Canvas;
    if (Item->Selected == true)
    {
        Canvas->Brush->Color = clSilver;
        Canvas->Font->Color = clRed;
    }
    v_Rect = Rect;
    Canvas->FillRect(v_Rect);
    v_Rect = Rect;
    int seek = 0;
    Canvas->TextOut(Rect.Left + 2, Rect.Top, Item->Caption);
    for (int i = 0; i < Item->SubItems->Count; i++)
    {
        seek = seek + Sender->Column[i]->Width;
        v_Rect.Left = seek;
        Canvas->TextRect(v_Rect, v_Rect.Left + 2, v_Rect.Top,
                    Item->SubItems->Strings[i]);
    }
}