Procedimento para Vibrar Android Delphi XE7

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;