anchor.diff:    Last, I: Integer;
     IO: ThtIndexObj;
   begin
  -  Buff := PWideChar(BuffS);
  +  FBuff := PWideChar(BuffS);
     Len := Length(BuffS);
     if Len > 0 then
     begin
  
positive.code:     BuffS := BuffS + St;
      Len := L;
    end;
    Buff := PWideChar(BuffS);
  end;
  
  {----------------TSection.ProcessText}
  
negative.code:   private
      BreakWord: Boolean;
      DrawWidth: Integer;
      FLPercent: Integer;
      LineHeight: Integer;
      StoredMin, StoredMax: TSize;
  