DirectX Screen Capture Function

I require a class or function written strictly in CodeGear 2009-compatible Delphi which will take a full-screen capture and return it as either a Stream or Byte Array using publicly-available DirectX headers for Delphi. This class **MUST** use DirectX and **MUST** be able to capture the highest level of overlay (ie. Windows Media Player playing a movie). The compression ratio and image size percentage must be adjustable, similar to the way the Delphi native BitBlt function is. Serious inquiries only. Winning bidder may be contacted for future work if results are satisfactory.