FoxPro/Visual FoxPro - Buscar y eliminar un objetos

Hola a todos!
Quiero desde un prg, buscar objetos y que si existen los elimine.


if object(&Nombreobj)="o"
otree.conta.RemoveObject(&NombreObj)
ELSE
MESSAGEBOX("no existe")
endif

Este código no me funciona.

Como seria, no consigo que me funcione...........

Gracias a todos

Te refieres a objectos en un formulario?
nombreobj = 'Thisform.command1'
IF VARTYPE(&nombreobj)= 'O' &&Es un objecto
***codigo
else
***codigo
ENDIF

Prueba asi

IF !VARTYPE(NomObjeto)= 'O'
messagebox("no se puede elimanr no es un objeto valido"
else
otree.conta.RemoveObject(&NombreObj)
ENDIF

Suerte