diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 979d66cd24..21b82db02b 100644
--- a/rtl/os2/sysutils.pp
+++ b/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);