* use the name of the target so that the correct attributes are retrieved (namely those of the target)

git-svn-id: trunk@43109 -

rtl/win/sysutils.pp

@@ -472,7 +472,7 @@ begin
             end;
           end;
 
-          Handle := FindFirstFileExW(PUnicodeChar(FileName), FindExInfoDefaults , @SymLinkRec.FindData,
+          Handle := FindFirstFileExW(PUnicodeChar(SymLinkRec.TargetName), FindExInfoDefaults , @SymLinkRec.FindData,
                       FindExSearchNameMatch, Nil, 0);
           if Handle <> INVALID_HANDLE_VALUE then begin
             Windows.FindClose(Handle);