Fix panel popup menu item clearing

1 files changed, 3 insertions, 1 deletions

diff --git a/UMain.pas b/UMain.pas
index 065cc08..703f197 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -4165,11 +4165,13 @@ end;
 procedure TFMain.FilePopupMenuPopup(Sender: TObject);
 
   procedure ClearPopupMenu(Popup: TGTKMenuItem);
+  var x: TGTKMenuItem;
   begin
     while Popup.Count > 0 do begin
       if Popup.Items[0].Count > 0 then ClearPopupMenu(Popup.Items[0]);
-      Popup.Items[0].Free;
+      x := Popup.Items[0];
       Popup.Delete(0);
+      x.Free;
     end;
   end;