diff --git a/examples/grid_semaphor/semaphorgrids.pas b/examples/grid_semaphor/semaphorgrids.pas
index 4000dbddd2..e62b72f4f9 100644
--- a/examples/grid_semaphor/semaphorgrids.pas
+++ b/examples/grid_semaphor/semaphorgrids.pas
@@ -63,8 +63,8 @@ unit SemaphorGrids;
 interface
 
 uses
-  Classes, SysUtils, LResources, LCLProc, LCLIntf, LCLType, Forms, Controls,
-  Graphics, Dialogs, Grids;
+  Classes, SysUtils, FileUtil, LResources, LCLProc, LCLIntf, LCLType, Forms,
+  Controls, Graphics, Dialogs, Grids;
 
 const
   SemaphorMarker='S_M_0_1';