Antonio, on Formatget-Class (method default()) this should be changed:
if ::oFont == nil
if ::oWnd == nil
::oFont = TFont():New()
else
if ::oWnd:oFont != nil
::SetFont( ::oWnd:oFont ) //Change
//::oFont = ::oFont
else
::oFont = TFont():New()
endif
endif
endif