Binary PList file parser in Delphi

I need Delphi code that can parse binary plist file (those you can find on Macs). Frankly, Apple opened that code in Objective-C, so all you will need to do is to port existing Obj-C code to Delphi. FYI: [login to view URL] Code should compile and work on both Delphi 7 and Delphi 2010, so please don't forget about AnsiString and string differences. Serious biders only please!