//XCHG 指令: 交換寄存器的內容
var
x,y: Integer;
begin
x := 1; y := 9;
asm
mov eax, x
mov ecx, y
xchg eax, ecx {xchg 的參數必須至少一個是寄存器, 不能有 xchg x,y 類似的操作}
mov x, eax
mov y, ecx
end;
ShowMessage(Format('x=%d, y=%d',[x,y])); {x=9, y=1}
end;