From f2c28d2c0522e6b61ef65a8b73d17575e4c81da2 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Mon, 24 Jun 2019 10:46:16 +0000
Subject: [PATCH] * Release options form after showing it

git-svn-id: trunk@61455 -
---
 tools/debugserver/frmmain.pp | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/tools/debugserver/frmmain.pp b/tools/debugserver/frmmain.pp
index 08cfbdd224..3c0d4ed6f6 100644
--- a/tools/debugserver/frmmain.pp
+++ b/tools/debugserver/frmmain.pp
@@ -455,21 +455,22 @@ procedure TMainForm.ShowOptions;
 
 begin
   With TOptionsForm.Create(Self) do
-    begin
-    ShowOnStartUp:=FShowOnStartUp;
-    ShowOnMessage:=FShowOnmessage;
-    NewMessageAtBottom:=FAtBottom;
-    NewMessageVisible:=FKeepVisible;
-    CleanLogOnNewProcess := FCleanLog;
-
-    If (ShowModal=mrOk) then
-      begin
-      FShowOnStartUp:=ShowOnStartUp;
-      FShowOnmessage:=ShowOnMessage;
-      FAtBottom:=NewMessageAtBottom;
-      FKeepVisible:=NewMessageVisible;
-      SaveSettings;
-      end;
+    try
+      ShowOnStartUp:=FShowOnStartUp;
+      ShowOnMessage:=FShowOnmessage;
+      NewMessageAtBottom:=FAtBottom;
+      NewMessageVisible:=FKeepVisible;
+      CleanLogOnNewProcess := FCleanLog;
+      If (ShowModal=mrOk) then
+        begin
+        FShowOnStartUp:=ShowOnStartUp;
+        FShowOnmessage:=ShowOnMessage;
+        FAtBottom:=NewMessageAtBottom;
+        FKeepVisible:=NewMessageVisible;
+        SaveSettings;
+        end;
+    finally
+       Free;
     end;
 end;