Use o sys(1016) mesmo, mas para saber quanto de memória usada por cada objeto, compare o antes com o depois. Ex:

m.MU=val(sys(1016))
objeto1=createobject("form")
? "Memoria usada Objeto1",(val(sys(1016))-m.MU)/1024
m.MU=val(sys(1016))
objeto2=createobject("hyperlink")
? "Memoria usada Objeto2",(val(sys(1016))-m.MU)/1024
m.MU=val(sys(1016))
objeto3=createobject("label")
? "Memoria usada Objeto3",(val(sys(1016))-m.MU)/1024

Retorna o total de memoria usada em Kbyte por cada form.