изменить стандартный алгоритм

Подскажите как изменить алгоритм наращивания свойства width (form.canvas.pen.width).
Наращивание происходит в обе стороны от и к центру, нужно в одну сторону - к центру. (width:=width-1 - не помогает)
Возникает вопрос зачем, смотрите тему Различия pen.width of form and shape


Вот собственно и всё.

if X<=0.5*Form1.ClientWidth then
 Canvas.Pen.Width:=trunc(2*Wmax*X/Form1.ClientWidth)+1;
if X>=0.5*Form1.ClientWidth then
 Canvas.Pen.Width:=-trunc(2*(Wmax-1)*X/Form1.ClientWidth-(Wmax-1))+Wmax;

Коряво немного, но работает.
Wmax-максимальный размер пера.
Удачи!!!

Там скобочки можно раскрыть.

спасибо