procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if column.FieldName='Имя логического поля' then
  begin
   if column.Field.AsBoolean then
    begin
    DBGrid1.Canvas.Font.Color := clRed;
    DBGrid1.Canvas.Brush.Color := clRed;
    end
    else
    begin
    DBGrid1.Canvas.Font.Color := clGreen;
    DBGrid1.Canvas.Brush.Color := clGreen;
    end;
  DBGrid1.Canvas.FillRect(Rect);
  end;
end;