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;