delphi for android 获取手机号

uses
? System.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,
? FMX.Types,FMX.Controls,FMX.Forms,FMX.Graphics,FMX.Dialogs,Androidapi.JNI.GraphicsContentViewText,
?? Androidapi.JNIBridge,? Androidapi.JNI.Telephony,Androidapi.JNI.JavaTypes,
??? FMX.Helpers.Android,FMX.StdCtrls;

type
? TForm1 = class(TForm)
??? btn1: TButton;
??? lbl1: TLabel;
??? procedure btn1Click(Sender: TObject);
? private
??? { Private declarations }
? public
??? { Public declarations }
? end;

var
? Form1: TForm1;
? TelephonyManager: JTelephonyManager;
? TelephonyServiceNative: JObject;

implementation

{$R *.fmx}

procedure TForm1.btn1Click(Sender: TObject);
begin
? TelephonyServiceNative := SharedActivityContext.getSystemService
??? (TJContext.JavaClass.TELEPHONY_SERVICE);
? if Assigned(TelephonyServiceNative) then
??? TelephonyManager := TJTelephonyManager.Wrap
????? ((TelephonyServiceNative as ILocalObject).GetObjectID);
? lbl1.Text:=JStringToString(TelephonyManager.getLine1Number);//取得手机号

end;