diff --git a/components/tvplanit/source/vpmonthview.pas b/components/tvplanit/source/vpmonthview.pas
index e4a3c0beb..5755ae394 100644
--- a/components/tvplanit/source/vpmonthview.pas
+++ b/components/tvplanit/source/vpmonthview.pas
@@ -402,6 +402,7 @@ end;
 destructor TVpMvTodayAttr.Destroy;
 begin
   FBorderPen.Free;
+  FFont.Free;
   inherited;
 end;