From 90669d5591bcf4bca12135dbfdb4d2b5e54490cf Mon Sep 17 00:00:00 2001
From: reiniero <reiniero@lazarus-ide.org>
Date: Mon, 15 Sep 2014 12:16:21 +0000
Subject: [PATCH] * Tools/CHMMaker: fix potential memory leak.

git-svn-id: trunk@46238 -
---
 tools/chmmaker/unit1.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/tools/chmmaker/unit1.pas b/tools/chmmaker/unit1.pas
index de1351c71d..ee0937109f 100644
--- a/tools/chmmaker/unit1.pas
+++ b/tools/chmmaker/unit1.pas
@@ -281,9 +281,12 @@ begin
       Exit;
   end;
   LHelpConn := TLHelpConnection.Create;
-  LHelpConn.StartHelpServer('chmmaker', LHelpName);
-  LHelpConn.OpenFile(ChmFileNameEdit.FileName);
-  LHelpConn.Free;
+  try
+    LHelpConn.StartHelpServer('chmmaker', LHelpName);
+    LHelpConn.OpenFile(ChmFileNameEdit.FileName);
+  finally
+    LHelpConn.Free;
+  end;
 end;
 
 procedure TCHMForm.FileListBoxDrawItem(Control: TWinControl; Index: Integer;