Make double sure everything gets freed.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>

1 files changed, 14 insertions, 0 deletions

diff --git a/src/frm_main.pas b/src/frm_main.pas
index 5107c091..dc2e36e3 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -752,7 +752,21 @@ begin
 end;
 
 destructor TMainForm.Destroy;
+var
+  FileIndex: integer;
+  lHelpFile: THelpFile;
 begin
+  FFileOpenRecent := nil;
+  if (Files <> nil) and (Files.Count > 0) then
+  begin
+    // Now destroy help files
+    for FileIndex := 0 to Files.Count - 1 do
+    begin
+      lHelpFile := THelpFile(Files[FileIndex]);
+      lHelpFile.Free;
+    end;
+  end;
+  Files.Clear;
   Files.Free;
   inherited Destroy;
 end;