diff --git a/packages/fcl-report/demos/rptbarcode.pp b/packages/fcl-report/demos/rptbarcode.pp
index 7073eb4145..a68375a101 100644
--- a/packages/fcl-report/demos/rptbarcode.pp
+++ b/packages/fcl-report/demos/rptbarcode.pp
@@ -221,7 +221,6 @@ procedure TBarcodeDemo.SetBarcodeValue(Sender: TFPReportElement);
 
 begin
   FBarcode.Value:=FReportData.FieldValues['Population'];
-  Writeln(FBarcode.Value);
 end;
 
 procedure TBarcodeDemo.InitialiseData;