Writing the name into TTTimeEvent::WriteAsXml