diff --git a/components/jvcllaz/run/JvCore/JvJCLUtils.pas b/components/jvcllaz/run/JvCore/JvJCLUtils.pas
index 39f87c04c..d3d4a1f5e 100644
--- a/components/jvcllaz/run/JvCore/JvJCLUtils.pas
+++ b/components/jvcllaz/run/JvCore/JvJCLUtils.pas
@@ -8201,7 +8201,7 @@ end;
 function MinimizeFileName(const FileName: string; Canvas: TCanvas; MaxLen: Integer): string;
 var
   R: TRect;
-  flags: Word;
+  flags: Cardinal;
 begin
   Result := FileName;
   R := Rect(0, 0, MaxLen, Canvas.TextHeight('Wq'));