Не могу найти ошибку

[T-dayne]

procedure TForm1.Button2Click(Sender: TObject);
var bmp: tbitmap;
Rct, rct1:TRect;
begin
bmp:=tbitmap.Create;

rct1:=rect(0,0,0,0);
rct:=rect(411,359,184,139);

bmp.Canvas.CopyRect(rct1,image1.Picture.Bitmap.Canvas,rct);
bmp.SaveToFile('c:\pic.bmp');
image2.Picture.LoadFromFile('c:\pic.bmp');

В Image1 картинка, из которой мне надо вырезать прямоугольник

(411,359,184,139)

, и поместить на image2. В коде где-то ошибка, прямоугольник остается пустой

[WhiteSpirit]

Во-первых, после создания TBitmap нужно задать ему размеры:
bmp.Width:=Image1.Width;
bmp.Height:=Image1.Height;

Во-вторых, размер прямоугольника rc1

rct1:=rect(0,0,0,0);

будет 0 пикселей, надо написать нужные значения

[T-dayne]

будет 0 пикселей, надо написать нужные значения

как 0 ?
Я просто не хочу отступать ни с какой стороны пикселей, пусть будет во весть размер TImage

[Прик]

Без особых изысков работающий вариант.

procedure TForm1.Button2Click(Sender: TObject);
var bmp: tbitmap;
    Rct, rct1:TRect;
begin
  bmp:=tbitmap.Create;
  bmp.Height := 411-184;
  bmp.Width := 359-139;

  rct1 := rect(0,0, 411-184, 359-139);
  rct := rect(184, 139, 411, 359);

  bmp.Canvas.CopyRect(rct1, img1.Picture.Bitmap.Canvas, rct);
  image1.Picture.Bitmap.Assign(bmp);
  bmp.free;
end;

Более простой вариант.

procedure TForm1.Button2Click(Sender: TObject);
var 
    Rct, rct1:TRect;
begin
  rct1 := rect(0,0, 411-184, 359-139);
  rct := rect(184, 139, 411, 359);

  image2.Canvas.CopyRect(rct1, image1.Canvas, rct);
end;

Но при этом размер image2 должен быть по размеру вырезаемого прямоугольника.

[T-dayne]

Все получилось. Главная моя ошибка была в том, что в корне неправильно считал координаты. Пришлось открывать заного учебник)
Разобрался.