Склеиваие картинок

[Crunkordie]

да, 256х256.

[ArtGrek]

замените на ето

    Canvas.StretchDraw(Rect(0,0,100,100),myJpg1);
    Canvas.StretchDraw(Rect(100,0,200,100),myJpg2)

[Crunkordie]

После тщательного осмотра всех команд, нашел некоторые не нужные, вот основной код:

var
  myJpg1, myJpg2, mySaveJpg: TJPEGImage;
  myBmp: TBitmap;
begin
  x:=0;
  y:=0;
  z:=3;
  s:=StrToInt(FloatToStr(exp(z*ln(2))))-1;
  myJpg1 := TJPEGImage.Create;
  myJpg2 := TJPEGImage.Create;
  myBmp := TBitmap.Create;
  myBmp.Height := Level[z];
  myBmp.Width := Level[z];
  for y:=0 to s do
       for x:=0 to s do begin
                             myJpg1.LoadFromFile('d:\x\z'+IntToStr(z)+'\'+IntToStr(x)+'_'+IntToStr(y)+'_'+IntToStr(z)+'.jpg');
                             myBmp.Canvas.Draw(256*x,256*y,myJpg1);
                        end;
  mySaveJpg := TJPEGImage.Create;
  mySaveJpg.Assign(myBmp);
  mySaveJpg.SaveToFile('d:\y\m'+IntToStr(z)+'.jpg');

end;

Замена на Canvas.StretchDraw(Rect(0,0,100,100 ),myJpg1); ничем особо не помогла. При пошаговом запуске обнаружил, что ошибка о недостаточной памяти выдается в строке:

mySaveJpg.SaveToFile('d:\y\m'+IntToStr(z)+'.jpg');

[ArtGrek]

16x16 картинок по 256 каждая, верно 4096x4096?
ругань на память изза загрузки всех картинок сразу
шас попробую зделать
___________________________________ _____________
Добавлено
вот вроди все как должно быть