Achicar el area dibujable de un canvas
 

Supongan que tengo el Canvas de un control.

Quiero dibujar dentro de el una secuencia de lineas que crucen el canvas el alguna dirección predeterminada con "moveto" y "lineto".

El motivo de mi pregunta es que quiero que estas lineas dejen dentro del canvas un marco de 2 pixels, es decir, que no importa donde la linea empiece y/o termine (aun fuera del canvas), lo que se modifique en la superficie del canvas sea siempre más allá del borde de 2 pixels. Algo asi como el OffsetRect pero que además se achique.

Es posible esto?

mas claramente
 

Me refiero a algo como:

Canvas.ClipRect := Bounds(5,5,Width-5, Height-5), cosa que no puedo hacer porque la propiedad cliprect del canvas es Read-Only;

me contesto yo solo...
 

Para mi y para el que le interese, la respuesta (puede que haya que pulir un poco) es:

Código Delphi [-]
SelectClipRgn(Canvas.Handle,CreateRectRgn(Left+2,Top+2,Left+Width-2,Top+Height-2));

Gracias por el esfuerzo ;)