[NumLock]

мы на Delphi Sources или где?

Код:

  with TStack.Create do
  begin
    Push(Pointer(a));
    Push(Pointer(b));
    Push(Pointer(c));
    Push(Pointer(d));

    a:=Integer(Pop);
    d:=Integer(Pop);
    c:=Integer(Pop);
    b:=Integer(Pop);
    Free;
  end;