Delphi 2010 and bit.ly - component needed

I need some code for a Delphi 2010 project which allows me to log into [login to view URL] or [login to view URL] (using a username and password if needed), and then to shorten a URL using that service and return that string to the Delphi program. Will prefer bidders who can provide a working sample. Fixed budget 40 USD. This PHP example may help: [login to view URL]