I want to anounce that I have started working on an implementation of the full Bitcoin p2p potocol (and Wallet functionality) in Object Pascal.
The sources are available under LGPL with static linking exception (same as the Lazarus components), and I am trying to make it as portable as possible for a wide range of platforms and CPUs (even big endian CPUs) while the main focus is on fast bootstrapping (initial block download), extremely fast startup times, low Bandwidth usage, low HDD usage, low RAM usage.
It will consist of the core (non UI) units for the p2p, wallet, transaction functionality that can be linked into your own applications and later (not yet started) also a rich GUI for Windows, Unix, Linux, Mac-OSX that will be made with Lazarus/LCL for superior end user experience.
the project home page is here: http://code.google.com/p/fpbitcoin/
Currently there are no downloads yet but you can check out the (half finished and slowly growing) source from svn already and study it, experiment with it, etc.
I try to document it as good as possible to make it usable for documentation purposes also, so it might help others to get started with their own implementations too. If you see something strange in the code that needs explanation (or needs improvement or is an outright error) then please tell me and I will try to document it, improve it or fix it.