Crear botones de comando pero con una particularidad

Buenos días. Tengo en una tabla las ubicaciones en x e y en donde irán los botones en la pantalla. X e y son secuenciales: 1,1;1,2;1,3;1,4;2,1;2,2;2,3;2,4.... Para esto, en el Init del formulario, creo los botones y les doy sus características, en la forma:

nb = 0 &&parte del nombre del botón
SCAN
nb = nb + 1 &&parte del nombre del botón
dcx = tCuad.cx &&coordenadas sacadas de la tabla (tCuad)
dcy = tCuad.cy
a = "cmd" + RIGHT("00" + ALLTRIM(STR(nb)),3)
c = "ThisForm.pageframe1.page1." + a
ThisForm.pageframe1.page1.AddObject(a,"Commandbutton")
b = EVALUATE(c)
WITH b
.Left = (61 - dcx) * 50 + 90 &&posiciono cada botón distantes 50 pixeles
.Top = (dcy - 40) * 50 - 160
.Visible = .T.
.Width = 13
.Height = 13
.Caption = ""
.ToolTipText = ALLTRIM(tCuad.lugar)
.FontSize = 8
.AddProperty('CooX',cx)
.AddProperty('CooY',cy)
ENDWITH
ENDSCAN

el tema es que a queda botón quiero darle sus propias instrucciones cuando se les haga click encima,de la forma:

Procedure click

thisform.text1.value = this.cx

thisform.text2.value = this.cy

endproc

y eso es lo que no he logrado. Si intento hacerlo como una clase, me da error de anidamiento (no me deja hacer scan, for, ni do while para crear los botones). Y bueno, ahí me quedé...

gracias