procedure TMFORM.getImages();
var Intent : JIntent;
begin
  FMessageSubscriptionID := TMessageManager.DefaultManager.SubscribeToMessage(TMessageResultNotification, HandleActivityMessage);
  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_PICK);
  intent.setType(StringToJString('image/*'));
  intent.setAction(TjIntent.JavaClass.ACTION_GET_CONTENT);
  Intent.putExtra(TJIntent.JavaClass.EXTRA_ALLOW_MULTIPLE,true);
  if MainActivity.getPackageManager.queryIntentActivities(Intent, TJPackageManager.JavaClass.MATCH_DEFAULT_ONLY).size > 0 then
    MainActivity.startActivityForResult(Intent,0)
  else
    ShowMessage('Receiver not found');
end;

function TMFORM.HandleIntentAction(const Data: JIntent): Boolean;
var
  C: JCursor;
  I: Integer;
  idx : Integer;
begin
  Memo1.Lines.Text := JStringToString(Data.getData.toString);
  C := MainActivity.getContentResolver.query(Data.getData,nil,StringToJString(''),nil,StringToJString(''));
  C.moveToFirst;

  Memo1.Lines.Add('Path:' + JStringToString(Data.getData.getPath)); //Das ist nicht der Pfad für den Upload
  Memo1.Lines.Add('No of columns returned:' + C.getColumnCount.ToString);

  for I := 0 to C.getColumnCount - 1 do
  begin
    if JStringToString(C.getColumnName(I)) = '_data' then
      Edit1.Text := JStringToString(C.getString(I)); //Das sollte der richtige Pfad sein aber _data kommt als column nicht vor
    Memo1.Lines.Add(JStringToString(C.getColumnName(I)) +': ' + JStringToString(C.getString(I)));
  end;
end;