diff --git a/components/virtualtreeview-new/demos/advanced/AlignDemo.pas b/components/virtualtreeview-new/demos/advanced/AlignDemo.pas
index b15a274cc..e6547128f 100644
--- a/components/virtualtreeview-new/demos/advanced/AlignDemo.pas
+++ b/components/virtualtreeview-new/demos/advanced/AlignDemo.pas
@@ -334,9 +334,9 @@ begin
   // allow to enter multiline strings (it does not allow to edit wide strings correctly at all).
   with AlignTree.Header do
   begin
-    Columns[0].Hint := DefaultHintColumn0 + #13 + CommonHeaderHint;
-    Columns[1].Hint := DefaultHintColumn1 + #13 + CommonHeaderHint;
-    Columns[2].Hint := DefaultHintColumn2 + #13 + CommonHeaderHint;
+    Columns[0].Hint := DefaultHintColumn0 + LineEnding + CommonHeaderHint;
+    Columns[1].Hint := DefaultHintColumn1 + LineEnding + CommonHeaderHint;
+    Columns[2].Hint := DefaultHintColumn2 + LineEnding + CommonHeaderHint;
   end;
 
   // Set up the initial values of the alignment and bidi-mode pickers as well as layout and options.
@@ -588,7 +588,7 @@ end;
 procedure TAlignForm.AlignTreeFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
 
 const
-  FocusedText = #13'Text of focused node is: ';
+  FocusedText = LineEnding + 'Text of focused node is: ';
 
 var
   Data: PAlignData;
@@ -599,9 +599,9 @@ begin
     Data := Sender.GetNodeData(Node);
     with AlignTree.Header do
     begin
-      Columns[0].Hint := DefaultHintColumn0 + #13 + CommonHeaderHint + FocusedText + Data.MainColumnText;
-      Columns[1].Hint := DefaultHintColumn1 + #13 + CommonHeaderHint + FocusedText + Data.GreekText;
-      Columns[2].Hint := DefaultHintColumn2 + #13 + CommonHeaderHint + FocusedText + Data.RTLText;
+      Columns[0].Hint := DefaultHintColumn0 + LineEnding + CommonHeaderHint + FocusedText + Data.MainColumnText;
+      Columns[1].Hint := DefaultHintColumn1 + LineEnding + CommonHeaderHint + FocusedText + Data.GreekText;
+      Columns[2].Hint := DefaultHintColumn2 + LineEnding + CommonHeaderHint + FocusedText + Data.RTLText;
     end;
   end;
 end;
diff --git a/components/virtualtreeview-new/demos/advanced/PropertiesDemo.pas b/components/virtualtreeview-new/demos/advanced/PropertiesDemo.pas
index 8b2934abb..7e15dda61 100644
--- a/components/virtualtreeview-new/demos/advanced/PropertiesDemo.pas
+++ b/components/virtualtreeview-new/demos/advanced/PropertiesDemo.pas
@@ -146,7 +146,7 @@ procedure TPropertiesForm.VST3GetHint(Sender: TBaseVirtualTree; Node: PVirtualNo
 begin
   // Add a dummy hint to the normal hint to demonstrate multiline hints.
   if (Column = 0) and (Node.Parent <> Sender.RootNode) then
-    HintText := PropertyTexts[Node.Parent.Index, Node.Index, ptkHint] + #13 + '(Multiline hints are supported too).';
+    HintText := PropertyTexts[Node.Parent.Index, Node.Index, ptkHint] + LineEnding + '(Multiline hints are supported too).';
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
diff --git a/components/virtualtreeview-new/demos/advanced/WindowsXPStyleDemo.pas b/components/virtualtreeview-new/demos/advanced/WindowsXPStyleDemo.pas
index 024da7854..f1194a3da 100644
--- a/components/virtualtreeview-new/demos/advanced/WindowsXPStyleDemo.pas
+++ b/components/virtualtreeview-new/demos/advanced/WindowsXPStyleDemo.pas
@@ -255,8 +255,8 @@ procedure TWindowsXPForm.XPTreeGetHint(Sender: TBaseVirtualTree; Node: PVirtualN
 
 begin
   // Show only a dummy hint. It is just to demonstrate how to do it.
-  HintText := 'Size larger than 536 MB' + #13 +
-    'Folders: addins, AppPatch, Config, Connection Wizard, ...' + #13 +
+  HintText := 'Size larger than 536 MB' + LineEnding +
+    'Folders: addins, AppPatch, Config, Connection Wizard, ...' + LineEnding +
     'Files: 1280.bmp, 1280x1024.bmp, 2001 94 mars.bmp, ac3api.ini, ...';
 end;