Dateien vegleichen belegt zu viel speicher!

[ATwardz]

Delphi-Quellcode:

  i:=0;
  While i<Listbox2.Count do
  Begin
    u:=0;
    While u<Listbox2.Count-1 do
    Begin
      If i<>u then
      Begin
        If Arefilesequal(Listbox2.Items.Strings[i],Listbox2.Items.Strings[u])=true then
        Begin
          Listbox4.Items.Add(Listbox2.Items.Strings[u]);
          Listbox2.Items.Delete(u);
          u:=Listbox2.Count-1;
          i:=0;
        end;
      end;
        u:=u+1;
    end;
    i:=i+1;
  end;

Wie kann ich nun den belegten speicher nach beendigen der inneren Schleife wieder freigeben während die
Procedure noch läuft?

Danke!