1152 X 864 사이즈의 jpg 파일을
400 X 294 사이즈의 bmp파일로 만든뒤 Timage에 로드시켜
출력하는 프로그램을 짜고 있습니다.
헌데 해상도가 무지하게 떨어지는군요.
변환시켜줄때 해상도를 높여주는 방법은 없을까요?
조언 부탁드리겠습니다.

procedure TFrmPhoto.JpegToBmp(v_jpeg: string);
var
  BMPImage: TBitmap;
  JPEGImage: TJPEGImage;
  v_rect_old, v_rect_new: TRect;
  v_width,v_height:integer;
  v_jpeg_path:string;
begin
  JPEGImage := TJPEGImage.Create;
  v_rect_New := Rect(0, 0, 400, 294);

  try
    BMPImage := TBitmap.Create;
    try
      JPEGImage.LoadFromFile(v_jpeg);
      BMPImage.Assign(JPEGImage);
      v_jpeg_path := PasString(v_jpeg, '.', 1);
      BMPImage.SaveToFile(v_jpeg_path + '_imsi.bmp');
      BMPImage.LoadFromFile(v_jpeg_path + '_imsi.bmp');
      v_rect_Old := Rect(0, 0, BMPImage.Width, BMPImage.Height);
      img4.Canvas.CopyRect(v_rect_New, BMPImage.Canvas, v_rect_old);

      img4.Picture.SaveToFile(v_jpeg_path + '_imsi.bmp');
    finally
      BMPImage.Free;
    end;
  finally
    JPEGImage.Free;
  end;

end;