Debes utilizar la API de Windows, especificamente la función DrawText.
ej.:
Código Delphi
[-]
DrawText(Canvas.Handle, 'texto a dibujar', Length('texto a dibujar'), aRect, DT_CENTER);
Puedes investigar más de esta función en el SDK de Windows que se acompaña con Delphi.