anchor.diff:    FVAlign := VAlign;
   end;
   
  +//-- BG ---------------------------------------------------------- 27.01.2012 --
  +constructor TColSpec.CreateCopy(const ColSpec: TColSpec);
  +begin
  +  Create(ColSpec.FWidth, ColSpec.FAlign, ColSpec.FVAlign);
  +end;
  +
   initialization
   {$ifdef UNICODE}
   {$else}
  
positive.code:     FVAlign: AlignmentType;
    public
      constructor Create(const Width: TSpecWidth; Align: ThtString; VAlign: AlignmentType);
      property ColWidth: TSpecWidth read FWidth;
      property ColAlign: ThtString read FAlign;
      property ColVAlign: AlignmentType read FVAlign;
  
negative.code:           begin
              P := PStart + N - 1;
  
              while (P <> Last) and not CanWrapAfter(P^) and not (Brk[P - Buff + 1] in ['a', 's'])
              do
              begin
                case Brk[P - Buff + 2] of
  