|  |  | 
 |  |  |     // Event and LeadingParticipation | 
 |  |  |     subject        := edtName.Text(); | 
 |  |  |     description    := edtDescription.Text(); | 
 |  |  |     eventTypeList  := ddlEventType.Data(); | 
 |  |  |     category       := sEvent.EventCategory();  | 
 |  |  |     isDefault      := ckbApplyToNewResources.Checked(); | 
 |  |  |     startDate      := dsStartDate.Date(); | 
 |  |  | 
 |  |  |      | 
 |  |  |     // All values are passed to the Server, only the relevant values are used there. | 
 |  |  |     event := LibCal_Event::CreateUpdateFromUI( sEvent.Calendar(), sLeadPart.WrappedInstance(), | 
 |  |  |                                                subject, description, eventType, capacity, category, isDefault, | 
 |  |  |                                                subject, description, eventType, eventTypeList, capacity, category, isDefault, | 
 |  |  |                                                startDate, startTimeOfDay, endDate, endTimeOfDay, isAllDay, | 
 |  |  |                                                // RecurrencePattern | 
 |  |  |                                                isRecurring, recurrenceInterval, patternType, |