delphi TList 泛型容器，查找對象 和 刪除對象

TList< TPerson> 的刪除，查詢 都是 按指針來的，沒有任何問題！！！

  TPerson = class
  private
    name: string;
    age: Integer;
  public
    constructor Create(name: string; age: Integer);
  end;

  constructor TPerson.Create(name: string; age: Integer);
begin
  inherited Create;
  Self.name := name;
  self.age := age;
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
  var persons := TObjectList<TPerson>.Create;
  try
    var p1 := TPerson.Create('小李', 1);
    persons.Add(p1);
    persons.Add(TPerson.Create('小李', 3));
    var p4 := TPerson.Create('小李', 4);
    persons.Add(p4);
    persons.Add(TPerson.Create('小李', 2));

    persons.Remove(p1); //刪除是按照指針來直接刪除

    Memo1.Lines.Add('刪除后，p4的索引' + persons.IndexOf(p4).ToString); //查詢也是根據指針來查詢
    
    for var v in persons do
    begin
      Memo1.Lines.Add(v.name + ' - ' + v.age.ToString);
    end;
  finally
    persons.Free;
  end;
end;