Image c повторением рисунка

procedure TForm1.Button23Click(Sender: TObject);
var
  bm, bmMem : TBitmap;
  i : Integer;
begin
  bm := TBitmap.Create;
  bmMem := TBitmap.Create;
  try
    ImageList1.GetBitmap(1, bm); // Картинка у меня лежит в ImageList-е
    bm.PixelFormat := pf24bit; // Для прозрачности
 
    bmMem.PixelFormat := pf24bit; // Теперь настраиваем тот битмап, на котором будем рисовать
    bmMem.Height := bm.Height;
    bmMem.Width := 6 * (bm.Width + 10);
 
    Image2.Height := bm.Height; // подгоняем высоту Image
    for i := 1 to 5 do // штампуем картинки с отступом на bmMem
    begin
      bmMem.Canvas.Draw(pred(i) * (bm.Width + 10), 0, bm);
    end;
    Image2.Picture.Bitmap.Assign(bmMem); // и то, что получилось - забрасываем в Image
  finally
    bm.Free;
    bmMem.Free;
  end;
end;