Speicheradressen von 2 Variablen Vertauschen?

[tHeRiAn]

Guten Morgen erstmal...

in nachfolgendem Codeschnippsel will ich einfach nur die Adressen der beiden Variablen vertauschen, und nun die Frage...Warum gehts net...hab auch jetzt ne Zeit lang gesucht aber nix im Forum gefunden...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ax,by: integer;
begin
  ax := 1;
  by := 9;
  label1.Caption := IntToStr(ax)+'   '+IntToStr(by);
  tausche(@ax,@by);
  Label2.Caption := IntToStr(ax)+'   '+IntToStr(by);
end;

procedure TForm1.tausche(a,b: pointer);
var
  ptemp: pointer;
begin
  ptemp := a;
  a := b;
  b := ptemp;
end;

schonmal vielen Danke für die Antworten
mfg therian