Passar todos os caracteres para maiusculo.

Existem 2 formas.

No FormShow

begin
TMemo(Memo).CharCase := ecUpperCase;
end;

Ou…

No Evento KeyPress do TDBMemo

begin
//O [1] no final quer dizer que irá pegar apenas 1 caracter da String convertida, ou seja, é converter de String para Char.
Key := AnsiUpperCase(Key)[1];
end;