diff --git a/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas b/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
index f72f1979c9..76813fd259 100644
--- a/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
+++ b/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
@@ -916,9 +916,10 @@ procedure TlrPdfExportFilter.OnBeginDoc;
 begin
   inherited OnBeginDoc;
   FCurPageNo:=-1;
-  FPDFDocument.Infos.Title := Application.Title;
-{  FPDFDocument.Infos.Author := FAuthorPDF;
-  FPDFDocument.Infos.Producer := FProducerPDF;}
+  FPDFDocument.Infos.Title := CurReport.Title;
+  FPDFDocument.Infos.Author := CurReport.ReportAutor;
+  FPDFDocument.Infos.Producer := Application.Title;
+  FPDFDocument.Infos.Keywords := CurReport.KeyWords;
   FPDFDocument.Infos.ApplicationName := ApplicationName;
   FPDFDocument.Infos.CreationDate := Now;