Ændre highlightcolor på en TListView

Sæt OwnerDraw til True (virker åbenbart kun ved ViewStyle = vsReport).
Lav så en OnDrawItem event:
procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
  with (Sender as TCustomListView).Canvas do
  begin
    if odSelected in State then
      Brush.Color := clRed
    else
      Brush.Color := clWindow;
    TextRect(Rect, Rect.Left, Rect.Top, Item.Caption);
  end;
end;

Farven på valgte elementer bestemmes af brugerens "display settings". Du kan ændre disse for hele systemet ved at anvende SetSysColors API'et. Dette vil dog påvirke alle programmer, hvilket brugeren formodentlig ikke vil synes om.

Den bedste løsning er at skrive din egen CustomDraw procedure for at opnå det ønskede resultat. I Delphi 7 findes der et eksempel på ovenstående i \Demos\CustomDraw\