DBGrid1 färben

[Alterauge]

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.DataSource.DataSet.FieldByName('STATUS').Value = 'Erfasst' then begin
    DBGrid1.Canvas.Brush.Color := clYellow;
    DBGrid1.Canvas.Font.Color := clred
  end else begin
    DBGrid1.Canvas.Brush.Color := clWhite;
    DBGrid1.Canvas.Font.Color := clblack
  end;
  DBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

so geht es ! Danke !

wie gehe ich weiter vor, wenn ein zweiter wert 'beendet ' in grün angezeigt werden soll?