written for http://www.delphipages.com/forum/showthread.php?t=156261
This seems ot be parsing a custom xml of the guy I don't remember, probably just showing how to do it.

Source Code