ich weis ja nicht genau was du machen willst, aber 1000 Images ???
Probier mal das :
Delphi-Quellcode:
var b:Tbitmap; // Das Icon
i,j:Integer;
begin
b := lade Bitmap
for i := 0 to 100 do
for j := 0 to 100 do
form1.canvas.draw(i*b.width, j*b.height, b);