Simulando um charcase no dbgrid

{Para converter a digitação para maiúsculo, coloque isto no evento OnKeyPress do DBGrid: }
Key := AnsiUpperCase(Key)[1]; {Para converter para minúsculo, troque por:}


Key := AnsiLowerCase(Key)[1];