Unit
WPLngCtr

Declaration

TWPLanguageControlBeforeEvent = procedure(Sender: TWPLanguageControl;
    Form: TWinControl;
    XMLEntry: TWPXMLOneLevel;
    var Ignore: Boolean) of object;