Uppercasing Characters in TWebDBInput

WEB TMS WEB Core
1

Can anyone think of why this doesn't work in OnKeyPress

if (Key in ['a'..'z']) then
    Key := UpCase(Key);
2

Set edit.CharCase = wecUppercase

3

Apologies, I was thinking of a more specific case, where certain characters needed to be uppercased, not all. I just tried that to see if it worked, and it didn't.