这个结果为什么不正确呢？

fcrane

1. unit Unit1;
   
2. inte**ce
   
3. uses
   
4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
5. 
   
6.   Dialogs, StdCtrls;
   
7. 
   
8. type
   
9.   TForm1 = class(TForm)
   
10.     btn1: TButton;
    
11.     mmo1: TMemo;
    
12.     procedure btn1Click(Sender: TObject);
    
13.   private
    
14.     { Private declarations }
    
15.   public
    
16.     { Public declarations }
    
17.   end;
    
18. 
    
19. 
    
20. 
    
21. var
    
22.   Form1: TForm1;
    
23. 
    
24. implementation
    
25. 
    
26. {$R *.dfm}
    
27. 
    
28. 
    
29. 
    
30. function sum(const A:array of Integer): Integer;
    
31. var
    
32. I:Integer;
    
33. begin
    
34.   for I := Low(A) to High(A) do
    
35.     Result := Result + A[I];
    
36. end;
    
37. 
    
38. procedure TForm1.btn1Click(Sender: TObject);
    
39. var
    
40.   Summer1,Summer2:Integer;
    
41. begin
    
42.   Summer1 := sum([1,2,3,4,5]);
    
43.   ShowMessage('数组1:sum[1,2,3,4,5]=' + IntToStr(Summer1));
    
44.   Summer2 := sum([1,2,3,4,5,6]);
    
45.   ShowMessage('数组2:sum[1,2,3,4,5,6]=' + IntToStr(Summer2));
    
46. end;
    
47. end.
    

复制代码

程序运行后，计算得Summer1 = 15，是正确的
而summer2=262169

这是怎么计算出来的呢？