Delphi - Capturar Mayusculas en una celda de un grid

Hola q tal espero me puedan ayudar, hago una consulta en un grid me despliega los datos y los modifico pero toda mi informacion esta validada a la hora de capturar para q sean mayusculas, ya busque y no encuetro la propiedad charcase para el grid, alguien sabe como hacerlo gracias...

Mira en el evento (OnKeyPrees) del Grid, insertas este codigo

procedure TForm4.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
key := UpCase (key);
end;

Ya hice prueba. OK

Puedes servirte de los eventos OnGetText y OnSetText del field:

para q las cadenas no mayusculas aparezcan como mayusculas, en el evento OnGetText del field pones (Text := UpperCase(Sender.AsString);)

para q las cadenas se hagan mayusculas a la hora de guardarlos en el field, en el evento OnSetText del field pones (Sender.AsString := UpperCase(Text);)

Hola:

Sólo una cosa más, utliza mejor AnsiUpperCase(Text) porque así también te transformará a mayúsculas las acetuadas, diéresis, etc (á, é, í, ó, ú, ü, ñ, ç, à ...)

Suerte.