* do not warn on anonymous functions without captured variables about being not used, resolves #39853

compiler/pdecsub.pas

@@ -1127,6 +1127,8 @@ implementation
                   aprocsym:=cprocsym.create('$'+lower(sp))
                 else
                   aprocsym:=cprocsym.create(orgsp);
+                if ppf_anonymous in flags then
+                  include(aprocsym.symoptions,sp_internal);
                 if addgendummy then
                   include(aprocsym.symoptions,sp_generic_dummy);
                 symtablestack.top.insertsym(aprocsym);

tests/webtbs/tw39853.pp

@@ -0,0 +1,8 @@
+{ %opt=-vh -Sewh }
+{$modeswitch anonymousfunctions}
+var
+	p: procedure(const s: string);
+begin
+	p := procedure(const s: string) begin writeln(s); end;
+	p('test');
+end.