anchor.diff:        Inc(I, 20);
         K := PosEx(#10, SS, I);
         if K > I then
  -        Result[1] := Copy(SS, I, K-I-1);
  +        Result[biException] := Copy(SS, I, K-I-1);
  +    end;
  +
  +    // Method
  +    I := Pos('TKM', SS);
  +    if I <> 0 then
  +    begin
  +      //Inc(I, 20);
  +      K := PosEx(#10, SS, I);
  +      if K > I then
  +        Result[biMethod] := Copy(SS, I, K-I-1);
       end;
   
       // Additional information from user
  
positive.code:     procedure SortStringGrid(var aStringGrid: TStringGrid; aColumn: Integer);
    end;
  
    TStringArray = array [0..5] of string;
  
  
  var
  
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
  