分割圖

int x=0,y=0,i=0;
TImage *img[9]={Image1,Image2,Image3,Image4,Image5,Image6,Image7,Image8,Image9};
for(;y<180;y+=60) x="0;x<300;x+=">Canvas->CopyRect(Rect(0,0,150,90),oImage->Canvas,Rect(x,y,x+100,y+60));
好像可以直接用的樣子，不需要另外的函式