怎样用delphi读取文本中的特定位置的内容(再次提问）

现在有一个文本文件，文件内容类似下面：  <Database Hostname = "localhost" Username = "root" Password = "root" Name = "test" Port = "3306" Type = "1" >  
<Listen Host="0.0.0.0"  
WorldServerPort = "8129" >  
.......  我想编写一个函数来读取Database 内的Hostname后面的值（即localhost）、Username后面的值（root）、以及：onewow、3306、0.0.0.0等数据。  可能说的不太清楚，不知道有没有人能够提供一下思路或者程序代码？ budded的回答：
用xml解析器， uses msxml; 
var 
  FDoc: IXMLDOMDocument; 
  FNode: IXMLDOMNode; 
begin 
  FDoc := CoDOMDocument.Create; 
  if FDoc.loadXML( 'Your Data ') then 
  begin 
    FNode := FDoc.selectSingleNode( 'Database/Hostname '); 
    if Assigned(FNode) then 
      Result := FNode.nodeValue; // get value 
  end; 
end; 首先谢谢budded，不过我所需要处理的文本并非xml规则的，因为最后以>结尾而非/> ?>结尾，所以fdoc.loadxml不能读取成功。还有没有人可以给出一个更好的解决方案？因为我所需要处理的文件内把含了很多这样的数据需要提取。