LPARAMETERS tcclass, tclib,p1,p2,p3,p4,p5,p6,p7,p8,p9
lccmd = 'newobj(['+tcclass+'],['+tclib+']'
FOR i = 3 TO pcount()
	lccmd = lccmd + ',p'+TRANSFORM(i-2)
ENDFOR
lccmd = lccmd + ')'
THIS.poform = EVALUATE(lccmd)