Permiso Para Grabar

[pruz]

Buenas tardes, aun no logro solucionar el problema. pero ahora me da el siguiente error; "I/O ERROR 30".
al ejecutarlo en Windows no da ERROR, pero en ANDROID si da el ERROR
La aplicacion no se donde queda instala, ya que se autoinstala.


este es el codigo, al intentar grabar un TXT.

Código Delphi [-]
var
F: TextFile;
sarchivo, slinea : String;

Begin


  AssignFile( F, sarchivo );
  Rewrite( F );

   for I := 0 to GrillaPaso.RowCount -1 do begin

     if (GrillaPaso.Cells[1, i] <> '') and
        (GrillaPaso.Cells[3, i] <> '') then begin

         slinea := GrillaPaso.Cells[0, i] + ';' + GrillaPaso.Cells[1, i] + ';' + GrillaPaso.Cells[2, i] ;
         slinea := slinea + ';' + GrillaPaso.Cells[3, i] + ';' + GrillaPaso.Cells[4, i] + ';' + GrillaPaso.Cells[5, i] ;
         slinea := slinea + ';' + GrillaPaso.Cells[6, i] + ';' + GrillaPaso.Cells[7, i] + ';' + GrillaPaso.Cells[8, i] ;
         WriteLn( F, slinea );


     end;

   end;
  CloseFile( F );

End;