procedure TFormMain.RequestPermissions;
begin
{$IFDEF ANDROID}
FPermission_SEND := JStringToString(TJManifest_permission.JavaClass.SEND_SMS);
FPermission_READ := JStringToString(TJManifest_permission.JavaClass.READ_SMS);
FPermission_RECEIVE := JStringToString(TJManifest_permission.JavaClass.RECEIVE_SMS);
PermissionsService.RequestPermissions([FPermission_SEND, FPermission_READ, FPermission_RECEIVE], RequestResult, DisplayRationale)
{$ENDIF}
end;
procedure TFormMain.RequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
{$IFDEF ANDROID}
if (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) and (AGrantResults[2] = TPermissionStatus.Granted) then
begin
end
{$ENDIF}
end;