مشکل در خروجی فارسی Quickreport به pdf

[rayangostar_co]

با سلام . با کد زیر از Quickreport خروجی pdf میگیرم اما با یونیکد فارسی مشکل داره.
لطفا راهنمایی کنید.

procedure TForm2.ExportToPDF(Filename: String);var

  aPDF: TQRPDFDocumentFilter;

begin

  if SaveDialog1.Execute() then

  begin

    aPDF := TQRPDFDocumentFilter.Create(SaveDialog1.Filename);

    aPDF.FontHandling := fhNoEmbedding;

    QuickRep1.ExportToFilter(aPDF);

  end;

  aPDF.Free;

end;