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:           end;
          until (P1^ = #0) or (CanWrap(P1^) and (Brk[I] = 'y'));
          SoftHyphen := Brk[I - 1] = 's';
          case P1^ of
            WideChar('-'), WideChar('?'):
              begin
                Inc(P1);
                Inc(I);
              end;
          end;
        end;
        Min := Math.Max(Min, FindTextWidthB(Canvas, P, P1 - P, True));
  
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
  