Achicar el area dibujable de un canvas

[elcigarra]

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;