From 45ba784bd84bcd7b5d5175cc5103a7b51b282251 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 8 Mar 2020 12:47:53 +0000
Subject: [PATCH] LCL: Solve issue #36746 in a Delphi compatible way. Patch
 from C Western.

git-svn-id: trunk@62715 -
---
 lcl/include/menuitem.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/include/menuitem.inc b/lcl/include/menuitem.inc
index 087ce72a2f..c10850f8b8 100644
--- a/lcl/include/menuitem.inc
+++ b/lcl/include/menuitem.inc
@@ -172,7 +172,6 @@ begin
   FItems.Delete(Index);
   Cur.FParent := nil;
   Cur.FOnChange := nil;
-  Cur.Free;
   InvalidateMergedItems;
   MenuChanged(Count = 0);
 end;
@@ -1015,9 +1014,13 @@ end;
 procedure TMenuItem.Clear;
 var
   I: Integer;
+  M: TMenuItem;
 begin
-  for I := Count - 1 downto 0 do
+  for I := Count - 1 downto 0 do begin
+    M := Items[I];
     Delete(I);
+    M.Free;
+  end;
 end;
 
 function TMenuItem.HasBitmap: boolean;