Hintergrundfarbe Zeile ListView Inhalt-Abhängig

[Micha]

Hallo zusammen,

ich habe eine ListView mit 3 Spalten (siehe Anlage).
Der Inhalt der 1. (Datumswert) und 2. Spalte (Name) wird aus einer Datenbank ausgelesen.
In der 3. Spalte die Anzahl der Tage, die zwischem dem Wert der 1. Spalte und dem heutigem Datum liegen.

Nun möchte ich die Einträge rot markieren, die in der Spalte "Tage vergangen" (3. Spalte) einen Wert haben der größer als 21 Tage ist, gelbe Markierung bei > 14 Tage, grün = bis 14 Tage.
Eintragungen in der Zukunft sollen blau markiert sein.

Hier erstmal mein Code für das Berechnen der Tage (3. Spalte):

Delphi-Quellcode:

if datetostr(now) > listitem.Caption then
 begin
  ListItem.SubItems.Add('+ ' + IntToStr(DaysBetween(strtodate(DateToStr(Now)), StrToDate(ListItem.Caption))));
 end
 else
  ListItem.SubItems.Add('- ' + IntToStr(DaysBetween(strtodate(DateToStr(Now)), StrToDate(ListItem.Caption))));

Ich hoff es war verständlich.

Kann mir wer helfen?