Ich habe leider keine Zeit mir das genauer anzuschauen, aber die Zeit geht verloren in TPresentedControl.AfterConstruction in
Unit FMX.Controls.Presentation. Nimmt man das LoadPresentation heraus, dauert es normal lang.
// EDIT:
Ok, die Zeit geht verloren in TStyledCalendar.ApplyStyle in
Unit FMX.Calendar.Style. Wenn ich die Einträge in der ListBox FDays verhindere (die Schleife for I := 1 to 0 do 6 * 7 do), passiert die Verzögerung nicht.