My solution which you resumed  for 227 is incomplete because it takes back the completeness of the text of the sharing and not only the name of the sharing
  if fn = '' then continue;
  if isExtension(fn, '.lnk')                                 //add by mars
    or directoryExists(fn) and fileExists(fn+'\target.lnk')  //add by mars
    then fn:=resolveLnk(fn);                                 //add by mars  
f:=Tfile.create(fn);
  if f.isFolder() then
do you see the Tfile.create?
it calls Tfile.setResource, which is checking for "target.lnk".
so, the work is done anyway.
sharing name : folder1
vfsname : folder1 on computer xxx
i tested this, and found a bug, but a different one:
folder1\folder2  ->  folder1
anyway, this has been fixed for next build. I can give a preview if you want to test and see if your problem has consequentially been fixed.