Teile eines images kopieren und in anderes image einfügen

[jAcK oRsEn]

kann mir nicht mal jemand nen code schreiben der funktioniert, ich verstehe jetzt rein garncihts mehr...noch weniger wie vprher

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;
    Bild,teilBild:TBitmap;
begin


bild.loadfromfile('c:\jack.bmp');
For i:=0 to 1 do
  For j:=0 to 1 do
    begin
       teilBild:=TBitmap.create();
       image2.canvas.copyrect(round(bild.width/1*i),round(bild.height/1*j),
                         round(bild.width/1*(i+1)),round(bild.height/11*(j+1),
                         bild);
       teilbild.savetofile('c:\jacktemp.bmp');
       teilbild.free;
    end;