Wenn das Fälligkeitsdatum erreicht ist soll Zelle im Stringgrid rot angezeigt werden

[Waldow]

Hallo, wenn ich die Schleife rausnehme erhalte ich wieder die Fehlermeldung:

Code:

Im Projekt RG.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''Datum' ist kein gültiges Datum'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Das mit dem Datum und der Farbe wird immer noch nicht richtig angezeigt.

Delphi-Quellcode:

 jetzt := Now;
  for i := 1 to AdvStringGrid3.rowcount - 2 do begin
    Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, i]);
    Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, i]);
    Label5.Caption := Format('%d', [DaysBetween(StrToDate(AdvStringGrid3.Cells[9, i]), jetzt)]);
    if strtoint(Label5.Caption) > 14 then abrush.color := clred;
  end;
end;

Oder wie wird bei dir das i gefüllt?