diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index bf3ff9252..375e6465a 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -41,7 +41,7 @@ unit CalendarLite;
 interface
 
 uses
-  Classes, SysUtils, LResources, LCLVersion, LMessages,
+  Classes, SysUtils, LResources, LCLVersion, 
   Forms, Controls, Graphics, Dialogs, Types, ExtCtrls, Menus;
 
 {$if lcl_fullversion >= 1080000}
@@ -501,7 +501,6 @@ const
     'Праздники и выходные для %d не установлены,"dddd"", ""dd mmm"", ""yyyy",mmmm yyyy';
 
   DBLCLICK_INTERVAL = 300;   // Interval (ms) for detection of a double-click
-  DESIGNTIME_PPI = 96;
 
 
 function SameRect(const R1, R2: TRect): Boolean;
@@ -584,6 +583,7 @@ function TCalDateList.AsArray: TCalDateArray;
 var
   i: Integer;
 begin
+  Result := nil;
   SetLength(Result, Count);
   for i:=0 to High(Result) do
     Result[i] := Values[i];