json数据写入到virualtree中，如何解决父类重复？

[bxh2dai]

有这么一个JSON
{
"code": "0",
"data": [
{
"category": "我是我父类1",
"name": "baidu",
"url": "http:\/\/v.baidu.com/"
},
{
"category": "我是我父类2",
"name": "腾讯视频",
"url": "http:\/\/v.qq.com"
},
{
"category": "我是我父类2",
"name": "爱奇艺",
"url": "http:\/\/v.iqiyi.com/"
},
{
"category": "我是我父类3",
"name": "bilibili",
"url": "http:\/\/www.bilibili.com"
}
]
}

现在通过Qjson能把每个内容通过循环取现出来，现在想写入到virualtree中去，请问一下，中间有两条父类是一样的，如何来判断父类存在，然后把数据作为子类写进去？以面是写入VIRUALTREE的参考例子，但是是写死的
with mlvdtPlayList do
begin
try
BeginUpdate;
Clear;
Node1 := AddChild(nil); // 一级节点
PData := GetNodeData(Node1);
PData^.Caption := '我是我父类1;
PData^.URL := '';
Node2 := AddChild(Node1); // 二级节点，下同
PData := GetNodeData(Node2);
PData^.Caption := 'baidu';
PData^.URL := 'http:\/\/v.baidu.com/';
finally
EndUpdate;
end;
end;