var E : TUniCalendarEvent;
E := Calendar.Events.Add;
E.CalendarId := 1;
E.Title := 'MY TITLE';
E.StartDate := EncodeDate(myQuery.FieldByName('year').asinteger,myQuery.FieldByName('month').asinteger,myQuery.FieldByName('day').asinteger);
E.EndDate := E.StartDate;
E.IsAllDay := True;