请问如何把XML文件中的内容读入到ListView中去？(100分)

比如我有这个一个XML文件
<Courseware>
<MediaFile src="legacy_content_clip.wmv"/>
<RefFiles>
<RefFile src="RefFiles/实例1 创建一个工作簿.htm" begin
="0" dur="5" title="实例1 创建一个工作簿"/>
<RefFile src="RefFiles/实例2 工作表的选定与单元格的定位.htm" begin
="5" dur="5" title="实例2 工作表的选定与单元格的定位"/>
<RefFile src="RefFiles/实例3 工作表的重命名、删除与插入.htm" begin
="10" dur="5" title="实例3 工作表的重命名、删除与插入"/>
<RefFile src="RefFiles/实例4 多工作簿操作.htm" begin
="15" dur="indefinite" title="实例4 多工作簿操作"/>
</RefFiles>
</Courseware>

在Delphi中，我如何把RegFiles,begin
等后面的内容读入到ListView中去？

procedure TForm1.ReadXML(ListNode:IXMLNode);
var
i:integer;
NewItem:TListItem;
begin
for i :=0 to ListNode.ChildNodes.Count-1do
begin
NewItem:=ListView1.Items.Add;
NewItem.Caption:=ListNode.ChildNodes.Nodes.NodeName;
ReadXML(ListNode.ChildNodes.Nodes);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'Courseware.xml');
XMLDocument1.Active:=true;
ReadXML(XMLDocument1.Node);
end;



这样只能读出如Courseware，MediaFile等NODE，老大们，如何读出具体内容啊
我技穷了~！

有人告诉我吗？

用TXmlDucument就可以将xml文件当作Tree来读取，具体用法参考VCL帮助吧。

呵呵,不要着急,老兄,我已经弄差不多了,就差汉字显示问题了

是啊，那个汉字的问题，换成E文就OK了，好象是因为他使用的码的问题吧

接受答案了.