da du mehrere Untereinträge mit gleichem Namen hast, bleibt dir nichts anderes übrig, als alle Children des "Männerknotens" durchzulaufen:
Delphi-Quellcode:
// hier ein wenig Sinnloscode
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer
s : string;
begin
for I := 0 to XMLDocument1.ChildNodes.Count - 1 do
s:=XMLDocument1.ChildNodes[i];
end;