* fix for range check error during compilation

git-svn-id: trunk@1088 -

rtl/os2/sysutils.pp

@@ -568,7 +568,7 @@ var SR: PSearchRec;
 
 begin
   New (FStat);
-  Rslt.FindHandle := $FFFFFFFF;
+  Rslt.FindHandle := THandle ($FFFFFFFF);
   Count := 1;
   Err := DosFindFirst (PChar (Path), Rslt.FindHandle,
             Attr and FindResvdMask, FStat, SizeOf (FStat^), Count, ilStandard);