Methode wird nicht aufgerufen

[Luckie]

Folgen der Code:

Delphi-Quellcode:

procedure TContactCollection.MySort;
var
  i, j              : integer;
begin

  for i := 1 to Self.Count do
    for j := Self.Count - 1 downto i do
      if Self.Items[j - 1].FName < Self.Items[j].FName then
      begin
        Self.SwapIt(Self.Items[j - 1], Self.Items[j]);
      end;
end;

procedure TContactCollection.SwapIt(Contact1, Contact2: TContact);
var
  TempObj           : TContact;
begin
  TempObj := Contact1;
  Contact1 := Contact2;
  Contact2 := TempObj;
end;

Delphi meint, dass die Variablen Contact1, Contact2 und TempObj nie benutzt werden. Stimmt auch, die Methode SwapIt wird nicht aufgerufen. Aber warum nicht? In der Methode MySort wird sie doch aufgerufen.

Mein Ziel ist es zwei Objekte aus der Liste miteinander zu vertauschen.