[Delphi] Zamiana wartości

Czesc.
W jaki sposob moge zamienic wartosci dwoch zmiennych? Wiem, ze moge napisac:
[code]
var
M, N, Temp : Integer;

begin
Temp := M;
M := N;
N := Temp;
end;
[/code]
Ale czy jest na to jakas gotowa procedurka?

Jeśli idzie o kolejne przesuwanie wartości to o żadnej takiej procedurze nie słyszałem (chociaż może i jest), ale jak cię tak bardzo denerwują te 3 linijki, to zrób z nich jedną...