How i can add Calendar to AppleCal?

VCL TMS VCL Cloud Pack
1

How i can add Calendar to AppleCal? This code isn't the solution...

AdvCalDav1 := TAdvCalDav.Create(nil);
try
AdvCalDav1.Url := 'https://caldav.icloud.com';
AdvCalDav1.Username :=
AdvCalDav1.Password :=
AdvCalDav1.Active := true;

AdvCalDav1.Calendars.SyncToServer;
Screen.Cursor := crHourglass;
try
  AdvCalDav1.Calendars.Add.Name := 'Test';
  AdvCalDav1.Calendars.SyncToServer;
finally
  Screen.Cursor := crDefault;
end;

finally
AdvCalDav1.Free;
end;

2

Sadly, Apple did changes server side with requirements with 2 factor authentication and this breaks this method to access the iCloud calendar. With these new Apple restrictions, we can unfortunately no longer support this.