FoxPro/Visual FoxPro - Tengo problemas para generar varios checkbox en tiempo de ejecución

PUBLIC oForm1,QFormatos

CLOSE ALL

USE  plantilla IN 0

COUNT TO QFormatos FOR nroformato#0 AND NOT DELETED() &&cantidad de formatos para generar los checbox

alturaFormulario=qformatos*22+200   &&la altura va variando dependiendo de los formularios que se vallan creando

AltBotImprimir=alturaFormulario -100&&alto para la posiciópn del boton imprimir

altoCheck=22

anchocheck=LEN(plantilla.documento)+180

distanciaTop=80

GO top

oForm1 = NEWOBJECT("Impresor")

RETURN

DEFINE CLASS Impresor AS FORM

  HEIGHT = alturaFormulario

  WIDTH =100+LEN(plantilla.documento)+400 &&100 de left, ma el ancho del campo + 200 all lado derecho

  CAPTION = "Sistema de impresion de documentos"

  NAME = "Impresor"

  backcolor=RGB(130,255,192)

  ADD OBJECT Salir AS COMMANDBUTTON WITH TOP =AltBotImprimir,LEFT = 330,HEIGHT = 27,WIDTH = 80,CAPTION = "Salir",NAME = "Salir"

  ADD OBJECT aviso as label WITH fontsize=14, fontname="Arial",autosize = .T.,caption = 'Sistema de impresión de documentos',left = 110,top=18,visible=.t.,backcolor=RGB(130,255,192)

  ADD OBJECT Aceptar as commandbutton With autosize = .T.,caption = 'Imprimir',left = 150,top=AltBotImprimir,visible=.t.

  ADD OBJECT Marcatodo as commandbutton With width = 107,height=40,caption = 'Marcar Todo',left = 8,top=80,visible=.t.

  ADD OBJECT DesMarcaTodo as commandbutton With width = 107,height=40,caption = 'Desmarcar todo',left = 8,top=130,visible=.t.

  ADD OBJECT CerrarWord as commandbutton With width = 107,height=40,caption = 'Cerrar Word',left = 8,top=180,visible=.t.

  FOR i=1 TO Qformatos	&&crea los check  //acá es donde falla.

		nomFormato="check"+ALLTRIM(STR(i))

		ADD OBJECT &nomFormato as checkbox With width = anchocheck,height=22,caption = plantilla.nombre,left = 8,top=180,visible=.t.

  endfor

  PROCEDURE INIT

		BINDEVENT(THISFORM.Salir, 'Click', THISFORM, "ClickBoton")

		THIS.SHOW()

  ENDPROC

  PROCEDURE "ClickBoton"

 	  	THISFORM.RELEASE()

  ENDPROC

ENDDEFINE

anchocheck=Len(plantilla.documento)+180

distanciaTop=80

Go Top

oForm1 = Newobject("Impresor")

For i=1 To QFormatos &&crea los check //acá es donde falla.

	nomFormato="check"+Alltrim(Str(i))

	Add Object &nomFormato As Checkbox With Width = anchocheck,Height=22,Caption = plantilla.nombre,Left = 8,Top=180,Visible=.T.

Endfor

Return

For i=1 To 5

	nomFormato="check"+Transform(i)

	oForm1.AddObject (nomFormato,"checkbox")

	With oForm1.&nomFormato.

		.Width    = anchocheck

		.Height   = 22

		.Caption = plantilla.nombre

		.Left       = 8

		.Top       = 180

		.Visible  =.T.

	Endwith

ENDFOR