پشته در اسمبلی با دلفی

[The.Ghost]

کد:

procedure TForm1.Button1Click(Sender: TObject);
var
  I,K,J:Word;
begin

Asm
MOV AX,10
PUSH AX

MOV AX,20
PUSH AX

MOV AX,30
PUSH AX
end;

Asm
POP I

POP K

POP J
end;

ShowMessage(IntToStr(I)+'   '+IntToStr(K)+'   '+IntToStr(J));
end;