[wolfran_hack]

De momento invente algo asi:

Edit2: Nombre del Archivo
Boton1: Cargar
ListBox1: Lista Final

Código Delphi [-]
procedure TTabbedForm.Button6Click(Sender: TObject);
var
   TextFile : TStringList;
   FileName : string;
begin
if Edit2.Text = '' then
begin
  ShowMessage('Ingrese le nombre del archivo.');
end
else
begin
try
  textFile := TStringList.Create;
  try
  {$IFDEF ANDROID}
     FileName := '/sdcard/'+Edit2.Text;
  {$ENDIF ANDROID}

  if FileExists(FileName) then begin
     textFile.LoadFromFile(FileName); //Carga el archivo en TStringList
     ListBox1.Items.Assign(textFile); //Mueve el TStringList a un ListBox.
  end
  else begin showMessage('Archivo no Existe.');

     //Para crear un nuevo archivo:
     //TextFile.Text := 'Creamos un archivo con este texto.';
     //TextFile.SaveToFile(FileName);

  end;
  finally
     textFile.Free;
  end;
except
  on E : Exception do ShowMessage('ClassError: '+e.ClassName+#13#13+'Message: '+e.Message);
   end;
end;
end;

y el usuario debe ingresar manualmente el nombre del archivo el cual debe estar en la memoria interna del dispositivo.