[ecfisa]

Hola rufo.

Código Delphi [-]
...
  if ComboBox7.ItemIndex <> -1 then
    with DBGrid1 do
    begin
      DataSource.DataSet.Edit;
      SelectedField.AsString := ComboBox7.Text;
      DataSource.DataSet.Post;
    end;

Si deseas los ítems del combo en mayúsculas, pone la propiedad CharCase igual a ecUpperCase desde el Object Inspector.

Saludos