Listview zeilen faerben(nicht OnCustomDrawItem)

[lucius]

Hallo Delphianer,

Ich habe einen kleines Problem.
Der folgende Code wird korrekt ausgefuehrt aber die Zeilen werden nicht Rot gefaerbt in der Listview.
Es ist keine Vituelle Listview.

Delphi-Quellcode:

for m:=y.Count -10 downto 0 do
  begin
  if not x.IndexOf(y.Strings[m]) > -1 then
     w.Add(y.Strings[m]);
     Listview.Items.Item[m].ListView.Canvas.Font.Color := clRed; <-------
  end;

Koennt ihr mir bitte helfen?
Danke im voraus.