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

[Waldow]

Leider nicht, oder mache ich immer noch etwas falsch?

Delphi-Quellcode:

procedure TFRechnung.AdvStringGrid3GetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var
  Datumrechnung: TDate;
begin
  if ARow > 0 then
  begin
    if ARow < AdvStringGrid3.FixedFooters then
    begin
      if acol = 9 then
      begin
        Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, Arow]);
        Label5.Caption := Format('%d', [DaysBetween(Datumrechnung, now)]);
        if strtoint(Label5.Caption) > 14 then abrush.color := clred;
      end;
    end;
  end;
end;

Gruss
Waldow