[MotoArhangel]

Ну понятно тогда. Прокатит только координаты по другому немного задать надо. спасибо.

Код:

  Canv.TextRect(Rect(A[1].X, A[0].Y, A[3].X, A[2].Y),A[1].X+(A[3].X-A[1].X-Canv.TextWidth(s)) div 2,
    A[0].Y+(A[2].Y-A[0].Y-Canv.TextHeight(s)) div 2, s);