TListViewでオーナードローを使ってCaptionとSubItemを違う色で表示したいのですが
SubItemがCaptionと同じ色で表示されてしまいます。

void __fastcall TForm1::ListView1DrawItem(
TCustomListView *Sender, TListItem *Item, TRect &Rect,
TOwnerDrawState State)
{
TCanvas *canvas = Sender->Canvas;

if (Item->Selected)
{
canvas->Brush->Color = clHighlight;
}
else
{
canvas->Brush->Color = clBlack;
}

canvas->Font->Color = clWhite;
canvas->TextOutA(0, Item->Top, "Caption");

canvas->Font->Color = clFuchsia;
canvas->TextOutA(ListView1->Columns->Items[0]->Width, SubItem);
}

どこがいけないのでしょうか。