Existe algum problema em utilizar a contante RELEASE FONT para destruir uma fonte ?
fivewin.ch
#xcommand RELEASE <ClassName> <oObj1> [,<oObjN>] ;
=> ;
<oObj1>:End() ; <oObj1> := nil ;
[ ; <oObjN>:End() ; <oObjN> := nil ]
acredito que não tenha problema, ok?