delphi報表存為JPG圖片

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DB, DBTables, QRCtrls, QuickRpt, Psock,
  NMsmtp, ComCtrls, jpeg, comobj;

var
  JPG: TJPEGImage;
  BMP: TBitMap;
  StoredUnits: TQRUnit;
  i: integer;
  StoreDir: string;
  IMAGE1: TIMAGE;
  SQLTEXT: string;

  QRP_01.Prepare;
  StoredUnits := QRP_01.Units;
  QRP_01.Units := Pixels;
  try
    BMP := TBitMap.Create;
    try
      BMP.Width := Round(QRP_01.Page.Width);
      BMP.Height := Round(QRP_01.Page.Length);
      QRP_01.QRPrinter.PageNumber := 1;
      BMP.Canvas.Draw(0, 0, QRP_01.QRPrinter.Page);
      BMP.SaveToFile('D:/' + ED03.Text + '.BMP');
    finally
      BMP.Free;
    end;
  finally
    QRP_01.Units := StoredUnits;
  end;

  BMP := TBitmap.Create;
  try
    BMP.LoadFromFile('D:/' + ED03.Text + '.BMP'); //你的圖片位置
    DeleteFile('D:/' + ED03.Text + '.JPG');
    JPG := TJPEGImage.Create;
    JPG.Assign(BMP);
    JPG.CompressionQuality := 95; //縮放比例
    JPG.Compress;
    JPG.SaveToFile('D:/' + ED03.Text + '.JPG'); //保存路徑
    JPG.Free;
  finally
    BMP.Free;
    DeleteFile('D:/' + ED03.Text + '.BMP');
  end;