изменение регистра буквы-?

[Evgenii]

Можно ли сделать так, чтобы при нажатии буквы а, в Edit например, маленькая буква а преобразовывалась в большую А (как если бы она была введена с нажатой клавишей shift)

[Johnson]

большая_буква:=UpperCase('маленькая _буква');

на конкретном примере:
Edit4.Text:=UpperCase(Edit4.Text);