请问怎样用九宫格方式来绘制窗体背景？

怎样用九宫格方式来绘制窗体背景？大牛们给个例子好吗？

例子没有思路是自己计算窗体绘制区域位置，利用copyrect把不同的目标图绘制到窗体的canvas上
原型：CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect)
例子：form1.canvas.copyrect(rect2,bitmap.canvas,rect1);