1 files changed, 9 insertions, 0 deletions
diff --git a/docview/src/HelpFile.pas b/docview/src/HelpFile.pas
index 4cd36edc..dc9998ed 100644
--- a/docview/src/HelpFile.pas
+++ b/docview/src/HelpFile.pas
@@ -46,8 +46,11 @@ type
   end;
 
 
+  { THelpFile }
+
   THelpFile = class(TObject)
   private
+    function GetFormatVersion: string;
     function GetStringResourceIDCount: integer;
     function GetNumericResourceIDCount: integer;
   protected
@@ -133,6 +136,7 @@ type
     property NumericResourceIDCount: integer read GetNumericResourceIDCount;
     property Index: TIndex read GetIndex;
     property Filename: string read _FileName;
+    property FormatVersion: string read GetFormatVersion;
 
     property ReferencedFiles: TStringList read _ReferencedFiles;
 
@@ -346,6 +350,11 @@ Begin
   Result := Topic.HelpFile as THelpFile;
 end;
 
+function THelpFile.GetFormatVersion: string;
+begin
+  Result := Format('%d.%d', [_pHeader^.version_hi, _pHeader^.version_lo]);
+end;
+
 function THelpFile.GetStringResourceIDCount: integer;
 begin
   Result := _pHeader^.nname;