Invalid Pointer Operation не пойму откуда

[Ship_1]

Здравствуйте.
Есть процедура, формирующая TObjectList из другого TObjectList по определённой зависимости. Привязана к изменению ComboBoX (ComboBox1Change). Всё работает нормально пока работает программа. Но при закрытии программы вызывает ошибку "Invalid pointer operation". Никакую строчку в коде не высвечивает - просто говорит об ошибке, и всё. При этом если строку Add для формируемого TObjectList закомментировать - закрывается нормально. Раскомментировать - опять та же ошибка. Что за ерунда?
Сама процедура

procedure TForm1.OutOtdel(OtdName:String);
var
  NewCont:TStringList;
  i:integer;
begin
  SelPeoples.Clear;
  NewCont:=TStringList.Create;
  for i:=0 to Peoples.Count-1 do
    if (OtdName='Все') or
       ((OtdName<>'Все') and (Peoples[i].Departament=OtdName)) then
    begin
      NewCont.Add(Peoples[i].FIO);
      SelPeoples.Add(Peoples[i]); //если закомментировать - ошибка пропадает
    end;
  ListBox1.Items:=NewCont;
  NewCont.Free;
end;

Её вызов

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  OutOtdel(ComboBox1.Text);
end;

Destroy формы

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SavePBToFile;
  SelPeoples.Free;
  Peoples.Free;
  Departaments.Free;
end;

[eoln]

Двойное удаление.
TObjectList само удаляет и себя и объекты внутри себя при вызове free, но в деструкторе формы вызывается ещё и удаление объектов

[Ship_1]

Ааа... Понял. Т.е., получается, что я один и тот же объект в два листа размещаю, а не создаю в одном листе копию объекта из другого... А потом его удаляю в одном листе, и в другом к моменту удаления его уже не остаётся. Хм. Тогда что, получается, что в данной ситуации надо делать вот так?

  Peoples:=TPeoples.Create(true);
  SelPeoples:=TPeoples.Create(false);

(TPeoples - и есть TObjectList)
Тогда Peoples.Free удалит лист со всеми объектами, а SelPeoples.Free удалит только сам лист, а объектов в нём уже не будет. Правильно понимаю?
И есть ли в этом случае разница между

  SelPeoples.Free;
  Peoples.Free;

и

  Peoples.Free;
  SelPeoples.Free;

?

[eoln]

один и тот же объект в два листа размещаю

да, объект один и тот же, ObjectList хранить только указатели на них, а не сами объекты

Тогда что, получается, что в данной ситуации надо делать вот так?
Код:

Peoples:=TPeoples.Create(true);
SelPeoples:=TPeoples.Create(false);

Тогда Peoples.Free удалит лист со всеми объектами, а SelPeoples.Free удалит только сам лист, а объектов в нём уже не будет. Правильно понимаю?

да, можно и так, с параметром false объекты внутри будут в безопасности, удалятся будут только указатели из этого TObjectList

есть ли в этом случае разница

разницы нет, SelPeoples.Free никак не влияет на объекты внутри