diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index 8bebbb0509..0c74198c60 100644
--- a/rtl/win/sysutils.pp
+++ b/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;