Как закрасить строки в DBEdit с условием

DBEdit.Color := clRed;

if
then
  begin
    DBGrid1.Canvas.Brush.Color:=clYellow;
    DBGrid1.Canvas.Font.Color:=clWhite;
  end
else
  begin
    DBGrid1.Canvas.Brush.Color:=clRed;
    DBGrid1.Canvas.Font.Color:=clWhite;
  end

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (Field.FieldName = 'Готово') then
    if Field.AsBoolean then begin
      //Закрашиваем желтым цветом
    end else begin
      //Закрашиваем красным цветом
    end;

begin
if (Field.FieldName = 'Готовность') then
    if Field.AsBoolean then begin
    DBGrid1.Canvas.Brush.Color:=clYellow;
    DBGrid1.Canvas.Font.Color:=clWhite;
  end
else
  begin
    DBGrid1.Canvas.Brush.Color:=clRed;
    DBGrid1.Canvas.Font.Color:=clWhite;
    FillRect(Rect);
        TextOut(Rect.Left+2,Rect.Top+2,Field.Field.Text);
  end
end;

procedure TForm12.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
 
begin
if (Column.FieldName = 'Ãîòîâíîñòü')
    then begin
    DBGrid1.Canvas.Brush.Color:=clRed;
    DBGrid1.Canvas.Font.Color:=clWhite;
  end;
  IF  gdSelected   IN State
Then Begin
    DBGrid1.Canvas.Brush.Color:=clHighLight;
    DBGrid1.Canvas.Font.Color:=clHighLightText;
    end;
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  (Sender as TDBGrid).DefaultDrawing := false;
  with (Sender as TDBGrid).Canvas do
  begin
    if (Field.FieldName = 'Готовность') then
      if Field.AsBoolean then
      begin
        Brush.Color := clred;
        Font.Color := clWhite;
      end
      else
      begin
        Brush.Color := clyellow;
        Font.Color := clWhite;
      end;
    FillRect(Rect);
    TextOut(Rect.Left + 2, Rect.Top + 2, Field.Text);
  end;
end;