procedure TFrmMain.Set_Phone;
begin

 TPermissionsService.DefaultService.RequestPermissions(['android.permission.READ_PHONE_STATE'],

   procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
   begin
     if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
     begin

     end;
   end,
   procedure(const APermissions: TArray<string>; const APostRationaleProc: TProc)
   begin
     TDialogService.ShowMessage('Uygulamayı kullanabilmek için gerekli izinleri veriniz..',
       procedure(const AResult: TModalResult)
       begin
         APostRationaleProc;
       end)
   end);
end;