diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index 766cfc94..b17fb813 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -10,7 +10,7 @@ object CEMainForm: TCEMainForm
   OnCloseQuery = FormCloseQuery
   OnDropFiles = FormDropFiles
   ShowHint = True
-  LCLVersion = '1.4.0.1'
+  LCLVersion = '1.4.0.2'
   object mainMenu: TMainMenu
     Images = imgList
     top = 1
@@ -3343,7 +3343,6 @@ object CEMainForm: TCEMainForm
   end
   object ApplicationProperties1: TApplicationProperties
     OnException = ApplicationProperties1Exception
-    OnShowHint = ApplicationProperties1ShowHint
     left = 96
   end
 end
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 030040cd..557cc36e 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -171,8 +171,6 @@ type
     procedure actProjSourceExecute(Sender: TObject);
     procedure actEdUnIndentExecute(Sender: TObject);
     procedure ApplicationProperties1Exception(Sender: TObject; E: Exception);
-    procedure ApplicationProperties1ShowHint(var HintStr: string;
-      var CanShow: Boolean; var HintInfo: THintInfo);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
   private
@@ -879,34 +877,6 @@ begin
   //
   srcLst.Clear;
 end;
-
-procedure TCEMainForm.ApplicationProperties1ShowHint(var HintStr: string;
-  var CanShow: Boolean; var HintInfo: THintInfo);
-begin
-  // TODO-crefactor: move this to TCESynMemo or TCEEditorWidget.
-  // TODO-cbugfix: first DDoc hint, window rect is wrong.
-  if (fDoc <> nil) and fDoc.Focused and fDoc.isDSource then
-  begin
-    TCEEditorHintWindow.FontSize := fDoc.Font.Size;
-    HintInfo.HintWindowClass := TCEEditorHintWindow;
-    HintInfo.HideTimeout := 120000;
-    HintInfo.CursorRect.Left := fDoc.CaretXPix;
-    HintInfo.CursorRect.Top := fDoc.CaretYPix;
-    // note: non-default color allows non-themed paint() which allows custom font-size to be handled.
-    HintInfo.HintColor := clInfoBk + $01010100;
-    //
-    DcdWrapper.getDdocFromCursor(HintStr);
-    if (length(HintStr) > 0) then
-      if Hintstr[1] = #13 then
-        Hintstr := Hintstr[2..length(Hintstr)];
-    if (length(HintStr) > 0) then
-      if Hintstr[1] = #10 then
-        Hintstr := Hintstr[2..length(Hintstr)];
-  end else
-    HintInfo.HideTimeout := 2500;
-  //
-  CanShow := HintStr <> '';
-end;
 {$ENDREGION}
 
 {$REGION ICEMultiDocMonitor ----------------------------------------------------}