Cambiar Mayusculas A Dbmemo

[Neftali [Germán.Estévez]]

Hola, te recomiendo que leas la Guía de estilo.

Con éste código puedes conseguir que lo que se escribe aparezca en mayúsclas (evento OnKeyPress):

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  key := UpperCase(Key)[1];
end;

Queda sin resolver la opción de que "peguen" un texto desde el portapapeles, por ejemplo. Para eso tendrás que modificar todo el texto al acabar (por ejemplo en el OnExit, que también es una opción válida aunque no utilices el código anterior).