diff --git a/tools/lazdatadesktop/dicteditor.pp b/tools/lazdatadesktop/dicteditor.pp
index 82797d20cc..614758f96f 100644
--- a/tools/lazdatadesktop/dicteditor.pp
+++ b/tools/lazdatadesktop/dicteditor.pp
@@ -71,6 +71,7 @@ Type
     FDomainsNode : TTreeNode;
 {$endif}
     Function AddNewItemPopup(ObjectType: TEditObjectType; AImageIndex : Integer) : TMenuItem;
+    procedure CreateGUI;
     procedure DoDoubleClick(Sender: TObject);
     procedure DoNewObject(Sender: TObject);
     procedure DoDeleteObject(Sender: TObject);
@@ -111,7 +112,6 @@ Type
     Constructor Create(AOwner : TComponent); override;
     Destructor Destroy; override;
     // General methods.
-    procedure CreateGUI;
     Procedure ShowDictionary;
     Procedure LoadFromFile(AFileName : String);
     Procedure SaveToFile(AFileName : String);
diff --git a/tools/lazdatadesktop/frmmain.pp b/tools/lazdatadesktop/frmmain.pp
index 6e956410e6..14361bb4eb 100644
--- a/tools/lazdatadesktop/frmmain.pp
+++ b/tools/lazdatadesktop/frmmain.pp
@@ -1440,7 +1440,6 @@ begin
   Result.ImageIndex:=15;
   PCDD.ActivePage:=Result;
   Result.DataDictionary.OnProgress:=@DoDDEprogress;
-  Result.CreateGUI;
 end;
 
 { ---------------------------------------------------------------------