rem: XFormControl.XFormSem = CreateSemaphore (1);
add: XFormControl.XFormSem = CreateSemaphore (1, "XForm");
context: init_xform_control (){	XFormControl.XFormCurrent = XFormControl.XFormInsertPoint = 0;	XFormControl.XFormsPending = FALSE;	XFormControl.XFormSem = CreateSemaphore (1);}