Контроль ввода. Автозамена символов.

[dekuk]

есть обработчик нажатия на клавишу, как его модернизировать, чтоб при вводе строчные буквы заменялись на заглавные? каждый символ описывать долго, наверняка есть какая-то закономерность, помогите

 // в ключе доступны 0-9 A-Z backspace
 if (CEdit=1) then
    if not (Key in [#48..#57,#65..#90,#8]) then Key:=#0;
end;

[Пепел Феникса]

if Key in ['a'..'z'] then Key:=Chr(Ord(Key)+26);//помоему так

[Аватар]

Key:=AnsiUpperCase(Key)[1];

[dekuk]

Сообщение от Пепел Феникса

if Key in ['a'..'z'] then Key:=Chr(Ord(Key)+26);//помоему так

нет, абракадабра получается=)

Сообщение от Аватар

Key:=AnsiUpperCase(Key)[1];

спасибо

[Аватар]

абракадабра получается

Только потому, что кирилица не учтена, ее учесть и не будет абрыкадабры, ну и не +26, а -32