Ein Object in mehreren Listen

[MondiBob]

Hallo erst mal,

wie der Titel schon sagt, möchte ich ein Object in verschiedenen Listen verwalten. Wie das Beispiel zeigt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  list1.Add(TObject.Create);
  list2.Add(list1.Last);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  list1 := TObjectList.Create;
  list2 := TObjectList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  list1.Free;
  list2.Free;
end;

Solange ich kein Object erzeuge gibt es natürlich kein Problem, sobald aber mindestens ein neues Object erstellt wurde gibt es einen Fehler, sobald das Programm geschlossen wird. Ist ja eigentlich auch logisch, da ich das gleiche Object 2mal freigeben möchte.

Wie kann ich also diese Problem umgehen?

Gruß MondiBob