diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index f19f6e25d..e87fe595c 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -163,6 +163,7 @@ type
     procedure SetBoundsRect(ARect: TRect);
   public
     constructor Create(AOwner: TCalendarLite);
+    destructor Destroy; override;
     procedure Draw;
     property BoundsRect: TRect read FBoundsRect write SetBoundsRect;
     property Buffer: TBitmap read FBuffer;
@@ -680,6 +681,12 @@ begin
   FTextStyle:= DefTextStyle;
 end;
 
+destructor TCalDrawer.Destroy;
+begin
+  FBuffer.Free;
+  inherited;
+end;
+
 procedure TCalDrawer.CalcSettings;
 var
   rem: Integer = 0;