Mehrere Bilder in Canvas zeichnen

[Johannes013]

Hi Leute,

ich habe ein Image, auf dass ich mehrere kleine, quadratische Bilder zeichnen möchte.
Wenn ich das so mache, ist es immer das gleiche Bild:

Code:

var x, y  : Integer;
    b     : TBitmap;
begin
  b := TBitmap.Create();

  for x := 1 to nSizeX do
  begin
    for y := 1 to nSizeY do
    begin
      b.LoadFromFile(Pfade[x, y]);
      Image1.Canvas.Brush.Bitmap := b;
      Image1.Cancas.Rectangle((x - 1) * 50, (y - 1) * 50, x * 50, y * 50);
    end;
  end;

Die Texturpfade im Array Pfade sind unterschiedlich. Woran kann das liegen?

Gruß Johannes