将德尔福风格的ASM翻译成英文？

有ASM经验的人可以帮助我理解并将以下程序翻译成英语(然后我可以翻译成Delphi,以便将来更容易阅读代码!!!)

Mem1的声明是字节[0..15]的字节;. Mem2是一个LongInt.

这是程序：

procedure TForm1.XorMem(var Mem1; const Mem2; Count : Cardinal); register;
 begin
 asm
   push esi
   push edi

   mov  esi,eax         //esi = Mem1
   mov  edi,edx         //edi = Mem2

   push ecx              //save byte count
   shr  ecx,2           //convert to dwords
   jz   @Continue

   cld
 @Loop1:                 //xor dwords at a time
   mov  eax,[edi]
   xor  [esi],eax
   add  esi,4
   add  edi,4
   dec  ecx
   jnz  @Loop1

 @Continue:              //handle remaining bytes (3 or less)
   pop  ecx
   and  ecx,3
   jz   @Done

 @Loop2:                 //xor remaining bytes
   mov  al,al
   inc  esi
   inc  edi
   dec  ecx
   jnz  @Loop2

 @Done:
   pop  edi
   pop  esi
 end;

 end;

编辑：感谢Roman R我已将ASM转换回Delphi

procedure TForm1.XorMem2(var Mem1; const Mem2 :LongInt; Count : Cardinal);
var
  Key : array [0..3] of byte absolute Mem1;
  Num : array [0..3] of byte absolute Mem2;
  idx : byte;
begin
  for Idx := 0 to Count -1 do Key[idx] := Key[idx] Xor Num[idx];
end;