anchor.diff:            begin
               P := PStart + N - 1;
   
  -            while (P <> Last) and not ((P^ = '-') or (P^ = '?')) and not (Brk[P - Buff + 1] in ['a', 's'])
  +            while (P <> Last) and not CanWrapAfter(P^) and not (Brk[P - Buff + 1] in ['a', 's'])
               do
               begin
                 case Brk[P - Buff + 2] of
  
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:   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}
  