自定义TCalendar组件显示异常求助

我尝试创建自定义日历组件，原本计划通过重写GetStyleObject方法实现自定义默认样式并修改其他行为。但即使使用继承TCalendar的最简实现代码（如下），组件仍无法正常显示（显示效果见下图）。我其他继承FMX控件的自定义组件均运行正常，不清楚该日历组件问题所在。

unit MyCalendar;

interface

uses
  FMX.Calendar;

type
  [ComponentPlatformsAttribute(pidAllPlatforms)]
  TMyCalendar = class(TCalendar);

procedure Register;

implementation

uses
  System.Classes;

procedure Register;
begin
  RegisterComponents('My Controls', [TMyCalendar]);
end;


initialization
  RegisterClass(TMyCalendar);

finalization
  UnRegisterClass(TMyCalendar);
end.

内容的提问来源于stack exchange，提问作者bas