Jak wysłać SMS za pomocą Delphi XE5 w Androidzie

Czy ktoś wie, jak to zrobić? Najbliższy dostałem kod poniżej, ale nie odniósł sukcesu. Na początku daje ci trochę nadziei, gdy mówi, że potrzebujeszSEND_SMS pozwolenie. Ale po skonfigurowaniu tego uprawnienia nic się nie dzieje!

uses
 Androidapi.JNI.JavaTypes;

procedure TForm1.Button1Click(Sender: TObject);
var
  smsManager: JSmsManager;
  smsTo, smsFrom: JString;
begin
  smsManager:= TJSmsManager.JavaClass.getDefault;
  smsTo:= StringToJString('552199999999'); //replace with the right destination number
  smsFrom:= StringToJString('552499999999'); //replace with the right originator number
  smsManager.sendTextMessage(smsTo, smsFrom, StringToJString(Edit1.Text), nil, nil);
end;

questionAnswers(4)

yourAnswerToTheQuestion