Como limitar a caracteres en mayúsculas en campo TDBMemo

[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