Выравнивание текста в canvas

[Чай_ник]

Как вывести текст по центру и по левому краю я знаю, а вот как по правому?

[Stilet]

with canvas do
 TextOut(Width-TextWidth(s),y,s);

Где s - строка y - координата y

[Чай_ник]

понял, спасибо)