UpperCase es para usar con cadenas
y UpCase con Char
Código:
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
Código:
if ORD( Key ) = 39 then Key := #0;
o bien
Código:
if Key = #39 then Key := #0;
Saludos