Como só permitir letras maiúsculas em um Memo?

Crie um novo projeto, adicione um memo e no
evento OnCreate do formulário deixe conforme o exemplo:

1
2
3
4
5
6

procedure TForm1.FormCreate(Sender: TObject);
begin
  TEdit(Memo1).CharCase := ecUpperCase;
 
  // ... demais código que possa precisar
end;

Veja que o memo só aceitará letras maiúsculas, sem qualquer problema
com acentuação.

Você pode usar esta dica com qualquer TMemo, inclusive TDBMemos.

Dúvidas ou sugestões deixe nos comentários do post.