Como obrigar a digitação de caracteres maiúsculos num campo Memo

Veja nesta dica, como obrigar a digitação de caracteres maiúsculos em um TMemo.

 

procedure TForm1.Memo1KeyPress(Sender: TObject;

  var Key: Char);

begin

  Key:= Upcase(Key);

end;