bild zerschneiden

[xxsasch4xx]

Delphi-Quellcode:

x:=0;
      inc(Y,Ziel.width);
      Ziel.Canvas.CopyRect(Rect(0,50,Ziel.Width,Ziel.Height),
                           Quelle.Canvas,
                           Rect(X,Y,X + Ziel.Width, Y + Ziel.Height));
      Ziel.SaveToFile('teilstück5.bmp');

meinst du so?
oder muss ich bei

inc(Y,Ziel.Height) hinschreiben und nicht witdh?