Try:

PROCEDURE main

PUBLIC goSettings

goSettings = CREATEOBJECT('settings')

ENDPROC

DEFINE CLASS settings AS CUSTOM
....
ENDDEFINE

Here is something that might be helpful to add to your class. This adds the property if it doesn't exist and you try and set it:

***goSettings.This_Access()
lparam tcMember
if !pemstatus(this, tcMember, 5)
	this.AddProperty(tcMember)
endif
return this