Try this, I think I got it from the FoxPro Advisor a while back

DEFINE CLASS classsqlthermo AS CUSTOM

icsavesettalk = .F.
icuniquewindowname = .F.
lcsubclasssingpotential = .F.

PROCEDURE INIT
WITH THIS
.icsavesettalk = (SPACE(0))
.icuniquewindowname = (SPACE(0))
.lcsubclassingpotential = "X"

.icsavesettalk = SET('TALK')
.icuniquewindowname = SYS(2015)
DEFINE WINDOW (.icuniquewindowname) FROM 0,0 TO 1,1
SET TALK WINDOW(.icuniquewindowname)
SET TALK ON
ENDWITH
ENDPROC

PROCEDURE DESTROY
* reset talk to its previous state
LOCAL lcsavesettalk
lcsavesettalk=THIS.icsavesettalk
SET TALK &lcsavesettalk
*release the window created by this.init()
RELEASE WINDOW(THIS.icuniquewindowname)
ENDPROC

PROCEDURE zsample
PRIVATE osqlstatus
osqlstatus = CREATEOBJECT("classsqlthermo")
*sql statement here
RELEASE osqlstatus
ENDPROC
ENDDEFINE