[ApxaHGe1]

Код:

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
if Column.Field.DataSet.FieldByName(STATUS_F).AsString='Выполнено' then
begin
with  DBGrid.Canvas do begin
Brush.Color:=$00FF77;
Font.Color:=clBlack;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;