[NumLock]

а стеком то можно сколько угодно переменных "менять местами":

Код:

var
  a, b, c, d: Integer;
begin
  a:=13;
  b:=11;
  c:=1973;
  d:=$ff;
  Edit1.Text:=IntToStr(a);
  Edit2.Text:=IntToStr(b);
  Edit3.Text:=IntToStr(c);
  Edit7.Text:=IntToStr(d);
  asm
    push a
    push b
    push c
    push d

    pop b
    pop c
    pop d
    pop a
  end;
  Edit4.Text:=IntToStr(a);
  Edit5.Text:=IntToStr(b);
  Edit6.Text:=IntToStr(c);
  Edit8.Text:=IntToStr(d);
end;