diff --git a/lcl/interfaces/gtk2/gtk2int.pas b/lcl/interfaces/gtk2/gtk2int.pas
index b548c87b1e..568f786ef5 100644
--- a/lcl/interfaces/gtk2/gtk2int.pas
+++ b/lcl/interfaces/gtk2/gtk2int.pas
@@ -46,7 +46,7 @@ uses
   Gtk2WinApiWindow, Gtk2Globals, Gtk2Proc, Gtk2Def, Gtk2FontCache, Gtk2Extra, Gtk2MsgQueue,
   // LazUtils
   GraphType, GraphMath, LazFileUtils, LazUTF8, DynHashArray, Maps, IntegerList,
-  LazLoggerBase, LazTracer, LazUtilities, LazStringUtils;
+  LazLoggerBase, LazTracer, LazUtilities;
 
 type
 
diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index 5af5e0a344..600d1af558 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -1305,7 +1305,7 @@ var
   RegionObj: PGdkRegion;
 begin
   Points:=EllipsePolygon(Rect(X1,Y1,X2,Y2));
-  SetLength(gPoints,length(Points));
+  SetLength(gPoints{%H-},length(Points));
   for i:=0 to length(Points)-1 do begin
     gPoints[i].x:=Points[i].x;
     gPoints[i].y:=Points[i].y;
diff --git a/lcl/interfaces/gtk2/gtk2wsprivate.pp b/lcl/interfaces/gtk2/gtk2wsprivate.pp
index df1f16687e..71a6259642 100644
--- a/lcl/interfaces/gtk2/gtk2wsprivate.pp
+++ b/lcl/interfaces/gtk2/gtk2wsprivate.pp
@@ -29,7 +29,7 @@ uses
   Gtk2, Glib2, Gdk2,
   Classes, SysUtils,
   // LCL
-  LCLType, LMessages, LCLProc, Controls, Forms,
+  LCLType, LCLProc, Controls, Forms,
   // widgetset
   WSControls, WSLCLClasses, WSProc,
   // interface
diff --git a/lcl/interfaces/gtk2/gtk2wsspin.pp b/lcl/interfaces/gtk2/gtk2wsspin.pp
index fce1b9c98a..1a47bb9b2d 100644
--- a/lcl/interfaces/gtk2/gtk2wsspin.pp
+++ b/lcl/interfaces/gtk2/gtk2wsspin.pp
@@ -24,7 +24,7 @@ uses
   // RTL
   glib2, gtk2, SysUtils, Classes, Math,
   // LCL
-  Controls, LCLType, LCLProc, LMessages, LazUTF8, Spin, StdCtrls,
+  Controls, LCLType, LCLProc, LazUTF8, Spin, StdCtrls,
   // Widgetset
   Gtk2Extra, Gtk2Def, Gtk2WSStdCtrls,
   Gtk2Proc, WSLCLClasses, WSProc, WSSpin;