best. ListView Item Farbe zuweisen

[Micha]

Wie kann ich einem best. ListView-Item eine Farbe zuweisen?

Ich habe meine ListView auf ViewStyle = vsReport und somit 2 Spalten.
In der zweiten Spalte stehen Datums-Werte.

Wenn nun ein Datum größer als 01.10.2002 ist, so soll dieser Eintrag (ganze Zeile oder nur Item, ist egal) rot markiert werden.

Ansatz (fehlerhaft!):

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
ListItem: TListItem;
begin
  if Item.Caption > '01.10.2002' then
   begin
    ListView1.Items.color := clred;
   end;
end;

Vielen Dank im Voraus.