Swap wskaźników

Hej, chcę zamienić dwa obiekty - T żeby referował do T2, a T2 do T. Niestety to nie działa, czemu ? Kompilator mówi że P1 i P2 są nieużywane. Jak to poprawić?

procedure Swap(P1, P2: Pointer);
var
  P: Pointer;
begin
  P := P1;
  P1 := P2;
  P2 := P;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  T, T2: TStringList;
begin
  T := TStringList.Create;
  T2 := TStringList.Create;

  Swap(T, T2);

  T.Free;
  T2.Free;
end;

procedure Swap(var P1, P2: Pointer);
var
  P: Pointer;
begin
  P := P1;
  P1 := P2;
  P2 := P;
end;

no nie przejdzie. Próbowałem rozne kombinacje i pustka...

procedure Swap(var P1, P2: TStringList); // musi być konkretny typ