Обрезать фото

var
  jpg: TJPEGImage;
  bmp: TBitMap;
  Bound, Rect: TRect;
begin
  jpg := TJPEGImage.Create;
  // загрузка фотографии
  jpg.LoadFromFile('1.jpg');
  // переводим jpg в bmp
  bmp := TBitmap.Create;
  bmp.Assign(jpg);
  // определяем границу области
  with Bound do begin
    Left := 100;
    Top := 200;
    Right := 500;
    Bottom := 400;
  end;
  // вычисляем размер области
  with Rect do begin
    Left := 0;
    Top := 0;
    Right := Bound.Right - Bound.Left;
    Bottom := Bound.Bottom - Bound.Top;
  end;
  // копируем выделенный кусок картинки
  bmp.Canvas.CopyRect(Rect, bmp.Canvas, Bound);
  // изменяем размеры картинки
  bmp.Width := Rect.Right;
  bmp.Height := Rect.Bottom;
  // переводим bmp в jpg
  jpg.Assign(bmp);
  bmp.Free;
  // сохраняем фотку в файл
  jpg.SaveToFile('2.jpg');
  jpg.Free;
end;