Amazon Web Servies funktioniert plötzlich nicht mehr

[mlspider]

Hallo,

ich habe mal ein altes Projekt von mir herausgesucht, um hier und da ein paar Änderungen vorzunehmen. Es handelte sich hierbei um einen CD-Ripper mit Tag-Editor. Das Cover bezog das Programm über die Amazon-API.

Delphi-Quellcode:

procedure TCover.Button3Click(Sender: TObject);
var AmazonService : AmazonSearchPort;
    myrequest     : KeywordRequest;
    ret           : ProductInfo;
begin
  myrequest        := KeywordRequest.Create;
  HTTPRio1.WSDLLocation := 'http://soap-eu.amazon.com/schemas3/AmazonWebServices.wsdl';
  try
    myrequest.keyword := Edit1.Text;
    myrequest.page    := '1';
    myrequest.mode    := 'music-de';
    myrequest.sort    := '+salesrank';
    myrequest.tag     :='webservices-20';
    myrequest.type_   :='lite';
    myrequest.devtag  := 'meine Access Key ID';
    myrequest.locale  :='de';
    ret:=ProductInfo.Create;
    try 
      try
        Amazonservice := HTTPRio1 as AmazonSearchPort;
        ret:=AmazonService.KeywordSearchRequest(myrequest);
      except 
        exit; 
      end; 

  {process Productinfo} 
    finally 
      ret.free; 
    end; 
  finally
    myrequest.free;
  end;
end;

Komischerweise passiert gar nichts mehr. Hat sich bei Amazon irgend etwas geändert???

Wäre für jeden Tip dankbar.