TWebbrowser alle bilder speichern

[RuSsAk]

hey
kann mir bitte jemand helfen?!

folgendes problem:

ich will z.B von diesem-Artikel http://www.ebay.de/itm/BOSCH-L-BOXX-...item486dc68496 (und nein ich will ebay nicht "automatisieren" ...es sei denn jemand übernimmt die kosten)

"Alle" Bilder speichern aber ich brauch nicht die so klein sind sondern die "großen" also wenn man mit der maus auf das bild klickt dann kommt das "große"

habs mit dem folgendem code versucht( Quelle: swissdelphicenter.com)

Code:

uses
  UrlMon;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,
      nil) = 0;
  except
    Result := False;
  end;
end;




procedure TForm1.Button2Click(Sender: TObject);
var
  k, p: Integer;
  Source, dest, ext: string;
begin
  for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;
    p := LastDelimiter('.', Source);
    ext := UpperCase(Copy(Source, p + 1, Length(Source)));
    if (ext = 'GIF') or (ext = 'JPG') then
    begin
      p  := LastDelimiter('/', Source);
      dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,
        Length(Source));
      DownloadFile(Source, dest);
    end;
  end;
  end;

die großen bilder werden nicht gespeichert