procedure TFormBonificaciones.GridPropioCanEditCell(Sender: TObject; ARow, ACol: Integer;
  var CanEdit: Boolean);
var
  color: Integer;
begin
  CanEdit := True;
  color := GridPropio.Colors[ACol, ARow];
  if GridPropio.Cells[0, ARow] = '*' then
    if (GridPropio.Cells[CTIPO, ARow] <> '') then
      if (ACol <> CDESCRIPCION) and (color <> TUtilidades.Colores.GridCellColor.COLOR_ROJO) then
        CanEdit := True
      else
        CanEdit := False
    else if ACol <> CTIPO then
      CanEdit := False
    else
      CanEdit := True
  else
    CanEdit := False;
end;