Xailer & OZ Software

Guys,
please look at the next code fragment. When the
Application:Terminate()
line is executed, nothing happens, the app runs away. Using QUIT command, the app ends.
Any adwise?
Gejza Horvath
#include "Xailer.ch"
#include "WinReg.Api"
#Define DEMO
Procedure Main()
Application:cTitle := "barcode"
AppInitialize()
Application:Run()
Return
**********************************
PROCEDURE AppInitialize()
LOCAL oIni,lNew,nError,cRoot
SET DATE GERMAN
SET CENTURY ON
#ifdef DEMO
WITH OBJECT TRegistry():Create()
:Root := HKEY_LOCAL_MACHINE
IF (nError := :OpenKey( "SoftwareH-Soft")) == 0
cRoot := :GetString( "Date", "" )
:CloseKey()
:Destroy()
ELSE
Application:MessageBox("INIT ERROR", "Inicializácia aplikácie",MB_OK
+MB_ICONERROR)
Application:Terminate()
ENDIF
END WITH
#endif