[viverosjosem]

Hola Voci.
Intente compilar tu codigo. Pero da error. No reconoce el tipo TArray

Código Delphi [-]
procedure TFConfigIP.PermisoEscrituraLectura;
begin
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE), JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],
  procedure(const APermissions: TArray<string>; const AGrantResults: TArray)   //<-- Aqui da error de compilacion
  begin
    if (Length(AGrantResults) = 2) and (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) then
      begin
        ShowMessage( 'Permiso concedido.');
        Servidor;
      end
    else
      ShowMessage( 'Permiso denegado.');
  end)
end;

Agradecido.

Saludos.
Jose Miguel.