1:
2:
3:
4:
5:
6:

for i := Pred(MainList.Count) downto 0 do begin
  [...]
  if MussDochNicht then
    MainList.Delete(i)
end;
MainList.Capacity := MainList.Count; // *edit* hinzugefügt					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

for i := Pred(MainList.Count) downto 0 do begin
  [...]
  if MussDochNicht then
    MainList[i] := nil
end;

  [...]
  // (1)
  MainList.Pack;
  MainList.Capacity := MainList.Count;

  // (2)
  for i := Pred(MainList.Count) downto 0 do
    if MainList[i] = nil then MainList.Delete(i);
  MainList.Capacity := MainList.Count;