Como limitar a caracteres en mayúsculas en campo TDBMemo

[KAYO]

Como puedo permitir solo mayúsculas los caracteres introducidos en un campo TDBMemo?

[[jcarteagaf]]

En el evento Onkeypress

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

end;

Saludos

[KAYO]

Cuando implemento esa sentencia en el evento OnKeyPress me aparece el siguiente error:

[Error] Incompatible types: 'Char' and 'String'; que puede estar pasando?

Gracias por vuestras repuestas

[[BlueSteel]]

Hola...

intenta con esto.. en el evento on Exit,

Código Delphi [-]
DBMemo1.Text := UpperCase(DBMemo1.Text);

ahora, se supone que el DBMemo te esta obteniendo los datos desde una campo de tipo Memo de una tabla en particular... por lo cual no podras escribir nada en el...

aqui te dejo el mismo ejemplo pero con un componente de tipo Memo

Código Delphi [-]
   Memo1.Text := UpperCase(Memo1.Text);

Salu2

[waly2k1]

UpperCase es para usar con cadenas
y UpCase con Char

procedure TForm1.DBMemo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  Key := UpCase(Key); // No UpperCase

end;

Edito:
Si quieres preguntar por un valor de una tecla usa ORD

if ORD( Key ) = 39 then Key := #0;

o bien

 if Key = #39 then Key := #0;

Saludos