diff --git a/components/lazreport/samples/editor/maincalleditor.pas b/components/lazreport/samples/editor/maincalleditor.pas
index ede1748525..d3523c4f98 100644
--- a/components/lazreport/samples/editor/maincalleditor.pas
+++ b/components/lazreport/samples/editor/maincalleditor.pas
@@ -491,7 +491,6 @@ procedure TfrmMain.TheReportUserFunction(const AName: String; p1, p2,
   p3: Variant; var Val: Variant);
 var
   v: variant;
-  b: boolean;
 begin
   if AName='STOCKFLAG' then begin
     v := frParser.Calc(P1);