RequestCallPhonePermission.pas

uses
  System.Permissions;

procedure TForm1.RequestCallPhonePermission;
begin
  PermissionsService.RequestPermissions(['android.permission.CALL_PHONE'],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if AGrantResults[0] = TPermissionStatus.Granted then
        // Permission has been granted
    end
  );
end;