[andres1569]

¡ Ups ! Una cosilla. Al llamar a la función TextRect le estás pasando como coordenadas el 0, 0, que equivalen a la esquina superior del componente. Habría que hacer esto:

Canvas.TextRect(Rect, Rect.Left, Rect.Top, 'Texto');