Consegui Fazer da seguinte forma
Componentes Listview e Label
Uses System.IOUtils
No evento Show do Form
carregadiretorio(GetSharedDownloadsDir);
No evento ItemClickEx do Listview
if ListView1.Items[ListView1.ItemIndex].Detail='folder' then
carregadiretorio(LbFolder.Text+PathDelim+ListView1.Items[ListView1.ItemIndex].Text)
else if ListView1.Items[ListView1.ItemIndex].Detail='voltar' then
carregadiretorio(copy(ExtractFilePath(LbFolder.text), 0,Length(ExtractFilePath(LbFolder.text))-1));
e a procedure que carrega o diretorio
procedure carregadiretorio(diretorio: string);
var
listapastas, listaarquivos: TStringDynArray;
pasta, arquivo: string;
LItem: TListViewItem;
begin
ListView1.Items.Clear;
LbFolder.Text := diretorio;
listapastas := TDirectory.GetDirectories(diretorio);
listaarquivos := TDirectory.GetFiles(diretorio);
ListView1.BeginUpdate;
LItem := ListView1.Items.Add;
LItem.Detail := 'voltar';
LItem.Text := '..<<';
for pasta in listapastas do
begin
//Carrega as Pastas
LItem := ListView1.Items.Add;
LItem.Detail := 'folder';
LItem.Text := Copy(pasta, Length(ExtractFilePath(pasta))+1, Length(pasta));
end;
for arquivo in listaarquivos do
begin
//Carrega os Arquivos
LItem := ListView1.Items.Add;
LItem.Detail := 'file';
LItem.Text := ExtractFileName(arquivo);
end;
ListView1.EndUpdate;
end;
Outra solução segue o link
http://bluexmas.tistory.com/427