Foros Club Delphi - Texto dentro de una figura

Hola, me gustaria mucho que me ayudaran con algunos problemitas que tengo, resulta que en el programa en el que estoy trabajando pinto diferentes imagenes, circulos cuadrados, rombos, elipses y necesito escribir texto dentro de ellas. Las imagenes las pinto sobre un TImage y utilizo el objeto TCanvas, el siguiente codigo es un ejemplo de como pinto un cuadrado:

Código:

 Image1.canvas.polyline([point(clientwidth div 2-50,Valor_pintura),point(clientwidth div 2+50,Valor_pintura),point(clientwidth div 2+50,Valor_pintura+50),point(clientwidth div 2-50,Valor_pintura+50),

point(clientwidth div 2-50,Valor_pintura)]);

Lo que necesito es escribir ya sea un letrero, por ejemplo: "Jimena tiene hermanos" o bien un letrero y valores de variables, por ejemplo: "Jimena tiene 2 hermanos" en donde 2, es el valor de una variable X que existe dentro de mi programa, no sé si me explico bien...

De antemano agradezco su colaboración, me ayudarian mucho enviandome algun ejemplo con codigo que me ilustre la idea o bien información que me sea de utilidad para resolver mis dudas, muchas gracias