用释放对象替换TObjectList中的对象(Delphi7)

var
  MyList: TObjectList;
  Index: Integer;
  NewObject: TObject;
begin
  MyList := TObjectList.Create;
  
  // 添加需要替换的对象到列表中
  MyList.Add(TObject.Create);
  MyList.Add(TObject.Create);
  MyList.Add(TObject.Create);
  
  // 确定要替换的对象的索引位置
  Index := MyList.IndexOf(SomeObject);
  
  // 创建一个新的对象来替换原来的对象
  NewObject := TObject.Create;
  
  // 释放原来的对象
  MyList[Index].Free;
  
  // 使用新对象替换原来的对象
  MyList.Put(Index, NewObject);
  
  // 释放TObjectList对象
  MyList.Free;
end;