Uso del Vibrador en Delphi Xe5

[[kurono]]

la amigos les cuento que encontre un codigo en una pagina japonesa que suspuestamente hace vibrar el celular pero a mi no me funciona incluso dandole permiso de vibrar en la optciones del proyecto el error que me lanza es ACCESS VIOLATION AT ADDRESS 80B3F6C8,ACCESSING ADDRESS 00000C aqui les muestro el codigo

Código Delphi [-]
uses
  Androidapi.JNIBridge, // ILocalObject
  Androidapi.JNI.App, // TJActivity
  Androidapi.JNI.Os, // JVibrator
  Androidapi.JNI.JavaTypes, // JObject
  FMX.Helpers.Android; // SharedActivity

var
  VibratorObj: JObject;
  Vibrator: JVibrator;
begin
  VibratorObj := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);
  Vibrator    := TJVibrator.Wrap((VibratorObj as ILocalObject).GetObjectID);
  Vibrator.vibrate(1000); //1000 milesegundo
end;

mi sistema es un android 2.3.6 en un HUAWEI Y220