En Delphi para Windows uno tiene elTOpenDialog y los comandos tales comoFindFirst. En Firemonky / Android no hay TOpenDialog, but according to many forumsFindFirst` debería existir. Sin embargo, hay más que tienen problemas con esto, pero no hay solución:

En Windows las siguientes funciones correctamente:

var iResult,n:integer;
Filenaam,s:string;
sr: TSearchRec;

begin

with form1 do
begin
    L_toonactie.Text:='start file list';
    M_filelist.lines.Clear;
    Filenaam:=
          System.IOUtils.tpath.GetDocumentsPath+'\assets\internal\'+'*.*';          
    iResult:=FindFirst(Filenaam,faAnyFile,sr); 
    str(iresult,s);L_toonactie.Text:='started '+s;
    n:=0;
    while (iResult=0) do
    begin
        inc(n);
        L_toonactie.Text:='busy file list';
        s:=s+sr.Name+sLineBreak;
        M_filelist.lines.add(sr.name);
        iResult:=FindNext(sr);
    end;
  FindClose(sr);
 // str(n,s);if n=0 then L_toonactie.Text:='nothing found' 
else L_toonactie.Text:='ready file list ('+s+'found)'

fin;}

iResult siempre ha-1

Otra solución encontrada fue:

procedure toon_files2(pathSTRING:string);  
var
   {$IFDEF FPC}
   patharray : NSArray;
   filename,path,ext,subdir:NSString ;
   fileManager: NSFileManager ;
   direnum:NSEnumerator;//NSDirectoryEnumerator ;//NSDirectoryEnumerator;
   //direnum:NSDirectoryEnumerator ;//NSDirectoryEnumerator;
   i,n:integer;
   error:NSError;
   {$ENDIF}
   k:integer;
begin
form1.L_toonactie.Text:='start file list';

{$IFDEF FPC}
path:= NSSTR(PChar(pathSTRING)); // =NSHomeDirectory();//
fileManager:= NSFileManager.defaultManager;
patharray:= fileManager.contentsOfDirectoryAtPath_error(path,@error);
n:=0;
k:=0;
direnum:= patharray.objectEnumerator ;
repeat
    inc(k);
    filename:=direnum.nextObject;
    if string(fileName.UTF8STRING)<>'' then
    begin
        ext:= filename.pathExtension;
        if UpperCase(string(ext.UTF8STRING))='KPF' then
        begin
            form1.L_toonactie.Text:='found a file';
            SetLength(pngLIST,n+1);
            pngLIST[n]:=string(Path.UTF8STRING)+string(filename.UTF8STRING);
            form1.memo1.Lines.Add(pngLIST[n]) ;
            inc(n);
        end;
    end;
until string(fileName.UTF8STRING)='';
{$ENDIF}

if k=0 then form1.L_toonactie.Text:='nothing found' 
else form1.L_toonactie.Text:='ready file list';
end;

Pero tampoco funciona.