diff --git a/components/chmhelp/lhelp/chmspecialparser.pas b/components/chmhelp/lhelp/chmspecialparser.pas
index 07fb108568..11b6ffd19e 100644
--- a/components/chmhelp/lhelp/chmspecialparser.pas
+++ b/components/chmhelp/lhelp/chmspecialparser.pas
@@ -50,6 +50,7 @@ type
   
 implementation
 
+// Replace %20 with space, \ with /
 function FixURL(URL: String):String;
 var
   X: LongInt;
@@ -79,8 +80,8 @@ begin
   begin
     fLastNode := AParentNode;
     NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, txt));
-    NewNode.Url:=FixURL('/'+AItem.Local);
-    NewNode.Data:=fChm;
+    NewNode.Url := FixURL('/'+AItem.Local);
+    NewNode.Data := fChm;
     if fTreeView.Images <> nil then
     begin
       NewNode.ImageIndex := 3;