Como só permitir letras minú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 := ecLowerCase;
 
  // ... demais código que possa precisar
end;

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

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