1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

- <client_state>
- <project>
  <master_url>http://delphi.de/</master_url> 
  <project_name>geheim</project_name> 
  </project>
- <project>
  <master_url>http://delphi-forum.de/</master_url> 
  <project_name>das ist hier</project_name> 
  </project>
</client_state>                    

1:

//client_state/project                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.stats;
Var   stats:IXMLDOMnode;  stats_path:string;
Begin
BOINC_path:=BOINC_path1.Caption;
stats_path:=BOINC_path+'client_state.xml';

  if not FileExists(stats_path) then prefPanel.BringToFront;
  xmlDoc:=CoDomDocument40.Create;

 xmlDoc.setProperty('NewParser',true);                         //Laden der Sah XML
 xmlDoc.load(stats_path) ;

   if xmlDoc.parseError.errorCode = 0 then
   Begin

   stats:=xmldoc.selectSingleNode('client_state/project/project_name');  //1.Projekt auslesen

      Gbox1.Caption:=stats.text;
   {  if stats.text<>'' then             //Dieser Abscnitt  
                                        ist mehrfach in der XML vorhanden und 
                                        unterscheidet sich nur in den values. Das erste 
                                        Mal kann ich noch auslesen, aber wenn ich das 
                                        wieder versuche, wird mir das gleiche result 
                                        geliefert.
     Begin
     Gbox1.Visible:=true;
     stats:=xmldoc.selectSingleNode('user_nameclient_state/project');
     Label11.Caption:=stats.text;
     stats:=xmldoc.selectSingleNode('client_state/project/team_name');
     Label14.Caption:=stats.text;
     stats:=xmldoc.selectSingleNode('client_state/project/user_total_credit');
     Label17.Caption:=stats.text;
     End;
   stats:=xmldoc.selectSingleNode('client_state/project/project_name');   }
   End;
totalcredit.Caption:=Label17.Caption;
end;