Enviar sms android

[ingmichel]

Saludos como estan, estoy empezando a dar mis primeros pasos con delphi xe5, estoy tratando de hacer una app para android para enviar un sms, he buscado en los ejemplos y en google y no he encontrado nada al respecto gracias de antemano.

[[kurono]]

Código Delphi [-]
uses
  FMX.Helpers.Android,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Net,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Telephony;

procedure SendSMS (target,messagestr:string);
var
  smsManager: JSmsManager;
  smsTo: JString;
begin
  smsManager:= TJSmsManager.JavaClass.getDefault;
  smsTo:= StringToJString(target);
  smsManager.sendTextMessage(smsTo, nil, StringToJString(messagestr), nil, nil);
end;

debes establecer permiso de envio de sms