diff --git a/components/jvcllaz/run/JvCmp/jvstringholder.pas b/components/jvcllaz/run/JvCmp/jvstringholder.pas
index 2fc6a3572..dc351eab9 100644
--- a/components/jvcllaz/run/JvCmp/jvstringholder.pas
+++ b/components/jvcllaz/run/JvCmp/jvstringholder.pas
@@ -124,6 +124,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
+    { Clears the string list. }
     procedure Clear;
     function MacroCount: Integer;
     function MacroByName(const MacroName: string): TJvMacro;
@@ -135,10 +136,18 @@ type
     property Macros: TJvMacros read FMacros write SetMacros;
     property OnExpandMacros: TNotifyEvent read FOnExpandMacros write FOnExpandMacros;
     property Duplicates: TDuplicates read GetDuplicates write SetDuplicates default dupIgnore;
+    { String for encoding the contents of string holder.
+      Empty --> no encryption done. 
+      Not empty ..> Encoding is performed, and the encrypted contents will be stored in the lfm file.
+      Encryption is a simple XOR-alghoritm with KeyString as the key to decode. }
     property KeyString: string read FXorKey write FXorKey stored False;
+    { Ensures the string list is sorted when any changes occur. }
     property Sorted: Boolean read GetSorted write SetSorted default False;
+    { Main container to store the strings. }
     property Strings: TStrings read GetStrings write SetStrings stored False;
+    { Triggered after any changes have been made to the list. }
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    { Trigged before changes are made to the list. }
     property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
   end;
 
@@ -808,7 +817,7 @@ end;
 
 procedure TJvStrHolder.SetStrings(Value: TStrings);
 begin
-  if Value <> FStrings then
+  //if Value <> FStrings then
     FStrings.Assign(Value);
 end;