Amazon mturk Signature unit

I have an urgent requirement for a Delphi 2010 unit to create Signatures for Amazon Mechanical Turk functions. Most mturk requests require authenticating, this is done but generating a signature - For instance, the function "GetAccountBalance" requires a Signature parameter. for more information see: [login to view URL] > "A request signature, an HMAC with an SHA-1 hash code, is calculated by concatenating the values of the **Service, **Operation, and **Timestamp parameters, in that order, and then calculating an RFC 2104-compliant HMAC, using the Secret Access Key as the "key." The computed HMAC value should be base64 encoded, and is passed as the value of the **Signature request parameter. For more information, please see <[login to view URL]>.********" > > I need a native Delphi 2010 unit created to generate Amazon Mturk signatures to be used for requests. The unit should have a public function which is easy to implement, for example: * SigID := GetSigID(AWSSecretAccessKey,Operation,Service,timestamp); Note: This unit MUST work correctly under native Delphi 2010 (win32).