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