diff --git a/Units/Misc/v_autocompleteform.pas b/Units/Misc/v_autocompleteform.pas
index 14b86b0..a4e49c6 100644
--- a/Units/Misc/v_autocompleteform.pas
+++ b/Units/Misc/v_autocompleteform.pas
@@ -99,6 +99,7 @@ type
     procedure DrawHints(var MaxWidth, MaxHeight: Integer; Draw: boolean);
     function PrepareParamString(out Str : string; out MustHide : boolean) : integer;
   public
+    destructor Destroy; override;
     constructor Create(TheOwner: TComponent); override;
     procedure CalculateBounds;
     procedure UpdateHint;
@@ -706,6 +707,12 @@ begin
   Parser.Free;
 end;
 
+destructor TParamHint.Destroy;
+begin
+  Application.RemoveOnIdleHandler(@ApplicationIdle);
+  inherited Destroy;
+end;
+
 
 constructor TParamHint.Create(TheOwner: TComponent);
 begin