формат Image

[Unique_Maks]

Здравствуйте.

На форме обитают объекты типа Timage, которые имеют габариты 100x100. Когда подгружаю в них картинки, к примеру 1024x768, то нужно урезать этот формат до 100x100.
Промежуточный алгоритм выглядит так:

procedure MyForm.click;
var
  img: TImage;
begin
  if(op.Execute) then // openpicture диалог
  begin
    img := Timage.Create(Self);
    img.Width := 100;
    img.Height := 100;
    img.AutoSize := false;
    img.Stretch := false;
    img.Picture.LoadFromFile(op.FileName);

    bmp_in := TBitMap.Create;
    bmp_in.Width := img.Width;
    bmp_in.Height := img.Height;
    bmp_in.Canvas.StretchDraw(img.Canvas.ClipRect, img.Picture.Graphic);
    res_img.Picture.Bitmap := bmp_in;
  end;
end;

закидываю область отсечения канвы в res_img (один из множества объектов на форме).
Есть ли другой вариант реализовать данную задачу?
Заранее спасибо.

[Аватар]

procedure MyForm.click;
var Bitmap: TBitmap;
begin
  if(op.Execute) then // openpicture диалог
  begin
    Bitmap:=TBitmap.Create;
    Bitmap.LoadFromFile(op.FileName);
    res_img.Canvas.StretchDraw(Image1.Canvas.ClipRect,Bitmap);
    Bitmap.Free;
  end;
end;

[Unique_Maks]

Сообщение от Аватар

procedure MyForm.click;
var Bitmap: TBitmap;
begin
  if(op.Execute) then // openpicture диалог
  begin
    Bitmap:=TBitmap.Create;
    Bitmap.LoadFromFile(op.FileName);
    res_img.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,Bitmap);
    Bitmap.Free;
  end;
end;

в данном случае берется кусок от оригинала...и в моем тоже.
Надо что бы формат 1024x768 превратился в 100x100 (типо Stretch).
Битовая матрица не была такой здоровой.
Про другие расширения пока умолкаю...

[Аватар]

Так не надо
res_img.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,Bitmap);

надо так, у меня там описка была
res_img.Canvas.StretchDraw(res_img.Canvas.ClipRect,Bitmap);

[Unique_Maks]

указал габариты res_img и отобразилось нормально. Без них ничего не выводится.
Даже если указываю результирующую область как Image_на_форме.canvas.ClipRect, то тоже не отображается