Listview bestimte Zeilen faerben

[lucius]

Hallo zusammen ich habe ne Listview mit 3 Spalten, in der 2e Spalte stehen die Werte VCD, SVCD und DVD.
Jetzt moechte ich das jede Zeile wo DVD drin steht rot markiert wird.
Habe auch schon was code:

Delphi-Quellcode:

procedure TForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
          Item: TListItem; State: TCustomDrawState; var DefaultDraw: boolean);
begin
    if (Item.SubItems[1]='DVD') then
    Sender.Canvas.Brush.Color:=clRed;
end;

Aber irgendwie kriege ich das mit dem Aufruf nicht hin:

Delphi-Quellcode:

if Item.SubItems[1]='DVD' then
  ListViewCustomDrawSubItem(listview, ????, ????, FALSE);

Was kommt jetzt genau bei den Fragezeichen und stimmt der code ueberhaupt?
Danke im voraus.