procedure code; stdcall;
var bufsize: DWORD;
     buffer: byte;
  asm
     pushad
     mov ecx, bufsize
     mov esi, 0

   L1:
     xor buffer[esi], KEY 
     inc esi
   
     loop L1
     popad 
     ret
......................
end;