diff --git a/components/chmhelp/lhelp/chmspecialparser.pas b/components/chmhelp/lhelp/chmspecialparser.pas
index 55e2e0ad13..14013f1c74 100644
--- a/components/chmhelp/lhelp/chmspecialparser.pas
+++ b/components/chmhelp/lhelp/chmspecialparser.pas
@@ -136,6 +136,7 @@ begin
     // Add new child node
     fLastNode := AParentNode;
     NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, txt));
+    {$IF FPC_FULLVERSION>=30200}
     URL:='';
     for x:=0 to AItem.SubItemcount-1 do
     begin
@@ -146,6 +147,9 @@ begin
       if URL<>'' then
         break;
     end;
+    {$ELSE}
+    URL:=AItem.URL;
+    {$ENDIF}
     NewNode.Url := FixURL('/'+URL);
     NewNode.Data := fChm;
     if fTreeView.Images <> nil then