#134 Formatter does not handle variant records with methods correctly

[Thomas Mueller]

The code formatter doesn't align lines correct for record case statements if the record has functions/procedures i.e.

record
  procedure Test;
  case Byte of
      1:
        (CoOrd: TCoOrd_Array);
      2:
        (x: Double;
          y: Double;
          z: Double);
  end;

It treats the end as the end of the case statement and not the end of the record.

All subsequent code is aligned incorrectly

(submitted via email by Rob Truby)

[Thomas Mueller]

fixed in revision #2717