Speicheradressen von 2 Variablen Vertauschen?

[HeZa]

Hm..., die Adresse einer benannten Variablen kann man gar nicht ändern. Sieh dir mal die Fehlermeldung an wenn man deb folgenden Code ausführt.

Delphi-Quellcode:

procedure Tausche(var A, B);
var
  C: Pointer;
begin
  Move(A, C, SizeOf(C));
  Move(B, A, SizeOf(C));
  Move(C, B, SizeOf(C));
end;

procedure TForm1.FormCreate(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;