diff options
Diffstat (limited to 'src/frm_main.pas')
-rw-r--r-- | src/frm_main.pas | 14 |
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; |