Teile eines images kopieren und in anderes image einfügen

[Nicodius]

ok dann halt der code ...

Delphi-Quellcode:

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


Bild:=TBitmapo.create(); 
bild.loadfromfile('c:\....'); 
For i:=0 to AnzahlX do 
  For j:=0 to ANzahlY do 
    begin 
       teilBild:=TBitmap.create(); 
       teilbild.copyrect(round(bild.width/AnzahlX*i),round(bild.height/AnzahlY*j), 
                         round(bild.width/AnzahlX*(i+1)),round(bild.height/AnzahlY*(j+1), 
                         bild); 
       teilbild.savetofile(....); 
       teilbild.free; 
    end;