//DBGRID_SOMENTE_MAIUSCULO

void __fastcall TForm1::DBGrid1KeyPress(TObject *Sender,

char &Key)

{

Key = AnsiUpperCase(Key)[1];

}