J'utilise cette manière pour lire des fichiers xml (delphi 7):


uses xmlintf,xmldoc
var
xmldocument: IXMLDocument;
node: ixmlnode;
i: integer;
begin
memo1.Clear;