diff --git a/components/callite/demo2/umaintestcallite.pp b/components/callite/demo2/umaintestcallite.pp
index 044c436a9..be5bec127 100644
--- a/components/callite/demo2/umaintestcallite.pp
+++ b/components/callite/demo2/umaintestcallite.pp
@@ -104,7 +104,7 @@ begin
     18    : begin m := 23; n := 4; end;
     19,20 : begin m := 24; n := 5; end;
     21    : begin m := 24; n := 6; end;
-    else    raise Exception.Create('Only years above 1700 supported.');
+    else    raise Exception.Create('Only years after 1700 supported.');
   end;
   a := Year mod 19;
   b := Year mod 4;
diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index aee5d52bf..f96cd9c2c 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -1083,7 +1083,7 @@ begin
   FMonthNames := TStringList.Create;
   FDisplayTexts := TStringList.Create;
   FDisplayTexts.StrictDelimiter := True;
-  FDisplayTexts.Delimiter := ',';
+  FDisplayTexts.Delimiter := '|';
   SetDefaultDisplayTexts;
   FPopupMenu := TPopupMenu.Create(Self);
   FCalDrawer := TCalDrawer.Create(Canvas);
@@ -1137,7 +1137,7 @@ end;
 
 function TCalendarLite.GetDisplayTexts: String;
 begin
-  Result := FDisplayTexts.CommaText;
+  Result := FDisplayTexts.DelimitedText;
 end;
 
 function TCalendarLite.GetMonthName(AMonth: Integer): String;