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

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;