diff --git a/components/callite/demo2/umaintestcallite.lfm b/components/callite/demo2/umaintestcallite.lfm
index c0747afb8..7646a7cfb 100644
--- a/components/callite/demo2/umaintestcallite.lfm
+++ b/components/callite/demo2/umaintestcallite.lfm
@@ -117,8 +117,8 @@ object Form1: TForm1
     end
     object rgLanguage: TRadioGroup
       Left = 200
-      Height = 184
-      Top = 240
+      Height = 200
+      Top = 224
       Width = 160
       AutoFill = True
       Caption = 'Language to use'
@@ -130,7 +130,7 @@ object Form1: TForm1
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 164
+      ClientHeight = 180
       ClientWidth = 156
       ItemIndex = 0
       Items.Strings = (
@@ -141,13 +141,14 @@ object Form1: TForm1
         'Spanish'
         'Italian'
         'Polish'
+        'Finnish'
       )
       OnClick = rgLanguageClick
       TabOrder = 4
     end
     object rgStartingDOW: TRadioGroup
       Left = 200
-      Height = 184
+      Height = 176
       Top = 40
       Width = 160
       AutoFill = True
@@ -160,7 +161,7 @@ object Form1: TForm1
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 164
+      ClientHeight = 156
       ClientWidth = 156
       Items.Strings = (
         'Sunday'
diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index 87a64fc01..f60e14571 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -91,6 +91,10 @@ const
   PolishMonths = 'Styczeń,Luty,Marzec,Kwiecień,Maj,Czerwiec,Lipiec,Sierpień,Wrzesień,Październik,Listopad,Grudzień';
   PolishTexts = 'Dziś jest,dd/mmm/yyyy,urlop w czasie,Brak święta określone dla';
 
+  FinnishTexts ='Tänään on,dd.mm.yyyy,Lomapäivät,Lomapäiviä ei ole asetettu';
+  FinnishMonths = 'Tammikuu,Helmikuu,Maaliskuu,Huhtikuu,Toukokuu,Kesäkuu,Heinäkuu,Elokuu,Syyskuu,Lokakuu,Marraskuu,Joulukuu';
+  FinnishDays = 'Su,Ma,Ti,ke,To,Pe,La';
+
 type
   TCalendarLite = class;
 
@@ -135,7 +139,8 @@ type
   TCalSelMode = (smFirstSingle, smNextSingle, smFirstRange, smNextRange,
     smFirstWeek, smNextWeek, smNextWeekRange);
 
-  TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian, lgPolish);
+  TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian,
+               lgPolish, lgFinnish);
 
 
   { TCalDateList }
@@ -1805,6 +1810,12 @@ begin
                  DisplayTexts := PolishTexts;
                  BiDiMode:= bdLeftToRight;
                end;
+    lgFinnish: begin
+                 DayNames := FinnishDays;
+                 MonthNames := FinnishMonths;
+                 DisplayTexts := FinnishTexts;
+                 BiDiMode := bdLeftToRight;
+               end;
   end;
 
   Invalidate;