[masterkungfu]

И сразу появился еще небольшой вопрос - как сохранить все изображения с сайта загруженного в webbrowser ?
пробовал такое решение -

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, UrlMon, ActiveX;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate( 'http://www.puntoun.com.ar/productoras/395-cinergy-sa' );
end;

end.

Но почему то при нажатии на кнопку ничего не происходит (