* typecast that fixes range error, part of mantis #16172

git-svn-id: trunk@19040 -

rtl/win/sysutils.pp

@@ -446,7 +446,7 @@ end;
 
 Function FileGetAttr (Const FileName : String) : Longint;
 begin
-  Result:=GetFileAttributes(PChar(FileName));
+  Result:=Longint(GetFileAttributes(PChar(FileName)));
 end;