Google Calendar initialization problems

FNC TMS FNC Cloud Pack
6

Hello Bart,

It looks like I do the same way (using GetCalendars and GetCalendar events), but with this code it fills the items at the second call only. Can you please correct the code below?

procedure TMainForm.Button1Click(Sender: TObject);
begin
CloudGoogleCalendar.Connect;
CloudGoogleCalendar.GetCalendars;
end;

procedure TMainForm.CloudGoogleCalendarGetCalendars(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult);
begin
CloudGoogleCalendar.GetCalendar('abc@gmail.com',IncDay(Date,-1),Date+EncodeTime(23, 59, 59, 0));
end;

procedure TMainForm.CloudGoogleCalendarGetCalendar(Sender: TObject;
const ARequestResult: TTMSFNCCloudBaseRequestResult);
begin
Var I:Integer;
for I := 0 to CloudGoogleCalendar.Items.Count - 1 do
Begin
ShowMessage(CloudGoogleCalendar.Items[I].Summary);
End;
end;

Thank you!