Не отправляется (не вкладывается в почту) изображение

Не могу прикрепить изображение. Ошибку не выдает, но и не прикрепляет изображение. Что не так? Куда смотреть D10.4, SDK 25

procedure TfmDecoder.SendEmail();
{$IF DEFINED(ANDROID)}
 var
  files: Tfile;
  lIntent: JIntent;
  lJRecipient: TJavaObjectArray<JString>;
  lURI: Jnet_Uri;
  lJFile: JFile;
  lFileName: string;
  lFilePath: string;
{$ENDIF}


begin
 lFileName := concat('MyPicture' ,'.jpg') ;
 lFilePath := System.IOUtils.TPath.GetPublicPath;
 lFilePath := System.IOUtils.Tpath.Combine(lFilePath, lFileName) ;
 Surf:=TBitMapSurface.Create;
   SaveParams.Quality:=100;
 try
   Surf.Assign(imResult.Bitmap);
 // Save file
   TbitMapCodecManager.SaveToFile(lFilePath, Surf, @SaveParams);
 finally
   Surf.Free;
 end;
{$IF DEFINED(ANDROID)}
  lJRecipient:= TJavaObjectArray<JString>.Create(1);
  lJRecipient.Items[0]:= StringToJString('aaaa@bbb.com');

  lIntent:= TJIntent.Create;

  lIntent.setType(StringToJString('message/rfc822'));
  lIntent.setAction(TJIntent.JavaClass.ACTION_SEND);
  lIntent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
  lIntent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, lJRecipient);
  lIntent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString('Subj'));
  lIntent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(AllSub));


  lIntent.putExtra(TJIntent.JavaClass.EXTRA_FROM_STORAGE,
    TJParcelable.Wrap(TJnet_Uri.JavaClass.fromFile(
        TJFile.JavaClass.init(StringToJString(lFilePath)))));
  lIntent.setType(StringToJString('vnd.android.cursor.dir/email'));
  try
    TAndroidHelper.Activity.startActivity(lIntent);
  except
    on E: Exception do
    begin
      Label1.Caption:= E.Message;
    end;
  end;
  Files.Delete(lFilePath);
  {$ENDIF}
end;