anchor.diff:        property lines[i:cardinal]:TStr
           read GetLine write SetLine; default;
         property strings : TStrings read ToStrings write LoadFromStrings;
  +      property text : TStr read ToString write LoadFromString;
       end;
    
  
positive.code:   end;
  
  function TBuffer.ToString : TStr;
    var i, len : cardinal;
    begin
  
negative.code:     public
        procedure LoadFromFile(path:TStr);
        procedure SaveToFile(path:TStr);
        procedure LoadFromStrings(strings : TStrings);
        procedure LoadFromString(s : TStr);
        function ToStrings : TStrings;
        function ToString : TStr; reintroduce;
      public
  