#228 Parsing Error on anonymous procedures without parameters

[Konstantin Tkachenko]

The trunk version of jcf2 (r831) has issues on formatting source code with anonymous procedures without parameters:

var
  a: TProc;
begin
  a := procedure
    begin
    end;
  end;

Another possible situation is the case with variables in the anonymous procedure:

var
a: TProc;
begin
a := procedure
var
i: Integer;
begin
for i := 0 to 10 do ;
end;
end;
~~~