Как сохранить Quick Report в TStream?

uses QRPrntr; 

procedure SaveQuickReportToStream(AQuickReport: TQuickRep; AStream: TStream); 
var 
  PL: TQRPageList; 
  I: Integer; 
begin 
  PL := nil; 
  try 
    PL := TQRPageList.Create; 
    PL.Stream := TQRStream.Create(100000); 
    AQuickReport.Prepare; 
    PL.LockList; 
    try 
      for I := 1 to AQuickReport.QRPrinter.PageCount do 
        PL.AddPage(AQuickReport.QRPrinter.GetPage(I)); 
      PL.Finish; 
    finally 
      PL.UnlockList; 
    end; 
    PL.Stream.SaveToStream(AStream); 
  finally 
    FreeAndNil(PL); 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  stream: TFileStream; 
begin 
  stream := TFileStream.Create('c:\quickreport.dat', fmCreate); 
  QuickReportToStream(QuickRep1, stream); 
  stream.Free; 
end;