anchor.diff:        Inc(I, 12);
         K := PosEx(#10, SS, I);
         if K > I then
  -        Result[2] := Copy(SS, I, K-I-1);
  +        Result[biComments] := Copy(SS, I, K-I-1);
       end;
   
       //Contact email
  
positive.code:     StringGrid1.RowCount := StringGrid1.RowCount + 1;
      StringGrid1.Cells[0, StringGrid1.RowCount-1] := IntToStr(StringGrid1.RowCount-1);
  
      for I := 0 to High(StringInfo) do
        StringGrid1.Cells[I+1, StringGrid1.RowCount-1] := StringInfo[I];
  
    until (FindNext(SearchRec) <> 0);
    FindClose(SearchRec);
  
negative.code:       Inc(I, 20);
        K := PosEx(#10, SS, I);
        if K > I then
          Result[biDate] := Copy(SS, I, K-I-1);
      end;
  
      // Exception text
  