Вычислить сумму элементов массива (xmm, mmx)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    xpmnfst1: TXPManifest;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas: array of Integer;
  s:string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s1:string;
  i:Integer;
begin
s:='';
 repeat
  if not InputQuery( 'Ввод', 'Количество элементов массива'+#13, s)
     then exit;                                             //если нажали кнопку отмена выходим
 until s <> '';
 SetLength(mas, StrToInt(s));                               //установка длины массива
 Edit1.Text:='';
 for i:=0 to StrToInt(s)-1 do
  begin
    repeat
      if not InputQuery( 'Ввод', 'Введите '+inttostr(i+1)+' элемент массива', s1)
       then exit;                                            //если нажали кнопку отмена выходим
    until s1 <> '';
    mas[i]:=StrToInt(s1);                                    //заполняем массив
    Edit1.Text:=Edit1.Text+' '+s1;                           //выводим на экран
    s1:='';
    end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Label1.Caption:='';
Label2.Caption:='';
 Edit1.Enabled:=False;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,sum:Integer;
begin
  sum:=0;
 for i:=0 to StrToInt(s)-1 do
  begin
   sum:=sum+mas[i];
  end;
   Label1.Caption:='сумма элементов массива';
Label2.Caption:=IntToStr(sum);
end;
 
end.

 sum:=0;
 for i:=0 to StrToInt(s)-1 do
  begin
   sum:=sum+mas[i];
  end;

procedure TForm1.Button2Click(Sender: TObject);
const
  mask: array[0..6] of integer=(-1,-1,-1,0,0,0,0);
var
  i,sum:Integer;
begin
  sum:=0;
  for i:=0 to length(mas)-1 do
  begin
    sum:=sum+mas[i];
  end;
  Label1.Caption:='сумма элементов массива (Delphi) = '+IntToStr(sum);
  asm
  push   ebx
  xorps  xmm0,xmm0
  mov    ebx,[mas]
  mov    eax,[ebx-4]
  mov    edx,eax
  and    edx,3
  sub    eax,edx
  je @end
    mov   ecx,eax
    @sum:movups xmm1,dqword[ebx+ecx*4-16]
         paddd  xmm0,xmm1
         sub    ecx,4
    jnz @sum
  @end:
  movups  xmm1,dqword[ebx+eax*4]
  sub     edx,3
  neg     edx
  movups  xmm2,dqword[mask+edx*4]
  pand    xmm1,xmm2
  paddd   xmm0,xmm1
  movhlps xmm1,xmm0
  paddd   xmm0,xmm1
  movaps  xmm1,xmm0
  psrlq   xmm1,32
  paddd   xmm0,xmm1
  movd    [sum],xmm0
  pop     ebx
  end;
  Label2.Caption:='сумма элементов массива (Assembler) = '+IntToStr(sum);
end;