anchor.diff:        Inc(I, 20);
         K := PosEx(#10, SS, I);
         if K > I then
  -        Result[3] := Copy(SS, I, K-I-1);
  +        Result[biEmail] := Copy(SS, I, K-I-1);
       end;
   
       //Link to crashreport
  
positive.code:     begin
        K := PosEx('.zip', SS, I);
        if K > I then
          Result[4] := Copy(SS, I, K-I+4);
      end;
    end;
  var
    SearchRec: TSearchRec;
    I: Integer;
    StringInfo: TStringArray;
  begin
    if not DirectoryExists(aPath) then Exit;
  
    StringGrid1.ColCount := 10;
    StringGrid1.ColWidths[0] := 40;
    StringGrid1.ColWidths[1] := 200;
    StringGrid1.ColWidths[2] := 300;
    StringGrid1.ColWidths[3] := 300;
    StringGrid1.ColWidths[4] := 200;
    StringGrid1.ColWidths[5] := 350;
  
    StringGrid1.Cols[0].Text := '#';
    StringGrid1.Cols[1].Text := 'Timestamp';
    StringGrid1.Cols[2].Text := 'Exception';
    StringGrid1.Cols[3].Text := 'Description';
    StringGrid1.Cols[4].Text := 'Contact';
    StringGrid1.Cols[5].Text := 'Link';
  
    FindFirst(aPath + '*.eml', faAnyFile - faDirectory, SearchRec);
    repeat
  
negative.code: procedure TForm1.ScanFolder(aPath: string);
    function ExtractInfo(aFilename: string): TStringArray;
    var
      bi: TBugInfo;
      S: TStringList;
      SS: string;
      I, K: Integer;
    begin
      for bi := Low(TBugInfo) to High(TBugInfo) do
        Result[bi] := '';
  
      S := TStringList.Create;
      S.LoadFromFile(aFilename);
      SS := S.Text;
  