скопировать прямоугольник

[spydark91]

помогите пожалуйста разбить картинку на 9 частей и скопировать каждую часть в отведенную для этого image
делаю так

iw[1][1]:=0;
    iw[1][2]:=170;
    iw[2][1]:=170;
    iw[2][2]:=340;
    iw[3][1]:=340;
    iw[3][2]:=510;
 
    raz:=wr/w;
    hn:=hr/raz;
 
    ih[1][1]:=0;
    ih[1][2]:=round(hn/3);
    ih[2][1]:=round(hn/3);
    ih[2][2]:=round(hn/3)+round(hn/3);
    ih[3][1]:=round(hn/3)+round(hn/3);
    ih[3][2]:=hn;
 
    //первый фрагмент
    sr:=rect(0,0,170,ih[1][2]);
    dr:=rect(0,0,170,170);
    form2.image1.Canvas.CopyRect(dr,image1.Canvas,sr);
    
    //второй фрагмент
    sr:=rect(170,0,340,ih[1][2]);
    dr:=rect(0,0,170,170);
    form2.image2.Canvas.CopyRect(dr,image1.Canvas,sr);
    ;
 
    //третий фрагмент
    sr:=rect(340,0,510,ih[1][2]);
    dr:=rect(0,0,170,170);
    form2.image3.Canvas.CopyRect(dr,image1.Canvas,sr);
    
 
    //четвертый фрагмент
    sr:=rect(0,ih[1][2],170,ih[2][2]);
    dr:=rect(0,0,170,170);
    form2.image4.Canvas.CopyRect(dr,image1.Canvas,sr);
    
 
    //пятый фрагмент
    sr:=rect(170,ih[1][2],340,ih[2][2]);
    dr:=rect(0,0,170,170);
    form2.image5.Canvas.CopyRect(dr,image1.Canvas,sr);
    
    //шестой фрагмент
    sr:=rect(340,ih[1][2],510,ih[2][2]);
    dr:=rect(0,0,170,170);
    form2.image6.Canvas.CopyRect(dr,image1.Canvas,sr);
    
 
    //седьмой фрагмент
    sr:=rect(0,ih[2][2],170,ih[3][2]);
    dr:=rect(0,0,170,170);
    form2.image7.Canvas.CopyRect(dr,image1.Canvas,sr);
    
 
    //восьмой фрагмент
    sr:=rect(170,ih[2][2],340,ih[3][2]);
    dr:=rect(0,0,170,170);
    form2.image8.Canvas.CopyRect(dr,image1.Canvas,sr);
    
 
    //девятый фрагмент
    sr:=rect(340,ih[2][2],510,ih[3][2]);
    dr:=rect(0,0,170,170);
    form2.image9.Canvas.CopyRect(dr,image1.Canvas,sr);
    
 
 
  end;

если использовать вместо структуры dr form2.Image.BoundsRect,то заполняется только первая imaga,а остальные белые
когда тестирую на картинке(первый скрин),то все вроде бы нормально(нарисовал в фотошопе,bmp)
когда беру картинку,которую переконвектировал из jpeg в bmp,то получается одинаковая картинка везде(2 скрин)

и еще вопрос,как можно испозьзовать еще и jpeg картинки? модуль jpeg добавил,но дает ошибку на функции CopyRect

[Прик]

var
  ...
  BM : TBitMap;
begin
  BM := TBitMap.Create;
  try
    //преобразование картинки в формате jpeg в bitmap (в Image1 загружено изображение ipeg)
    BM.Width := Image1.Width;
    BM.Height := Image1.Height;
    BM.Canvas.Draw(0, 0, image1.Picture.Graphic); 

    w := Image1.Width div 3; 
    h := Image1.Height div 2;

    //первый фрагмент
    sr := rect(0, 0, w, h);
    dr := rect(0, 0, w, h);
    form2.image1.Canvas.CopyRect(dr, BM.Canvas, sr);

    //второй фрагмент
    sr := rect(w, 0, w*2, h);
    form2.image2.Canvas.CopyRect(dr, BM.Canvas, sr);

    ...
  finally
    BM.Free;
  end;
end;

И в цикле копировать желательно.

[spydark91]

а как тут можно использовать функцию draw? когда ее юзаю качество не меняется,но не знаю как,используя ее, разбить картинку на фрагменты

[Прик]

В примере все проблемы разжеваны и в рот положены.
Попробуем еще раз.
1. Грузим в Image1 картинку в формате jpeg.
2. Создаем Bitmap размером с загруженную картинку.
3. С помощью метода Draw копируем ВСЮ картинку из Image1 в созданный Bitmap (это копирование и есть преобразование формата jpeg в растровый bitmap).
4. Теперь орудуем только с изображением, которое находится на Bitmap'е: режем, копируем в другие TImage.
Так же как ранее делали с изображением на Image1.