//计算 x 的 n 次方的函数
function Fun(x,n: Integer): Integer;
asm
  //mov eax, x           {因为 eax 会先获取第一个参数, 这句可以省略}
  mov ecx, n             {ecx 是个计数寄存器, 会记录循环的次数, 每循环一次 ecx 的值就会减1}
  sub ecx, 1
  @Lable1: add eax, eax  {内部标签必须使用 @ 前缀; 也可以使用 Delphi 的标签}
  loop @Lable1           {循环到标签执行}
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Fun(2,10))); {1024}
end;