Fix "index out of bounds" error when clicking on debug inf header menu option.

Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>

1 files changed, 1 insertions, 1 deletions

diff --git a/src/frm_main.pas b/src/frm_main.pas
index bb37f1b9..256c5ece 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -239,7 +239,7 @@ var
 begin
   RichView.Clear;
   sl := TStringList.Create;
-  f := THelpFile(Files[0]);
+  f := THelpFile(CurrentOpenFiles[0]);
   with sl do
   begin
     Add('<b><u>Filename:</u></b> <red>' + f.Filename + '<black>');