Internal error 200108231 with anon functions
From 'Fibonacci' on forum.
Minimal code to reproduce
```pascal
{$modeswitch anonymousfunctions}
{$modeswitch functionreferences}
type
tclass = class
field: string;
constructor Create;
end;
referencedprocedure = reference to procedure;
constructor tclass.Create;
begin
end;
procedure proc(p: referencedprocedure);
begin
end;
begin
with tclass.Create do begin
proc(procedure begin
field := 'value';
end);
end;
end.
```
Older installation of 3.3.1 gives different internal error: Internal error 200204175
issue