Componente TShape con Label?

[[Crandel]]

Empezado por Jorge Rojas M.

... el procedimiento Paint en el momento de ejecutar la línea Canvas.TextOut(10,10,ftext), va escribir en la posición 10,10 del Shape no del Form?

si, lo deje asi para no complicar mas el ejemplo.

Puedes agregarle propiedades al componente para asignarle el lugar donde escribir o calcular de forma automatica la posicion, segun te guste