[NumLock]

модуль HTMLka, в нем функция:

Код:

function SaveBitmaps(AWebBrowser: TWebBrowser; APath: String; AStrings: TStrings = nil): Integer;

использование:

Код:

var
  URL: String;
begin
  URL:='http://www.puntoun.com.ar/productoras/395-cinergy-sa';
  WebBrowser1.Navigate(URL);
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
  ShowMessage(IntToStr(SaveBitmaps(WebBrowser1, 'd:\Downloads', Memo1.Lines)));
end;

скачать:
http://narod.ru/disk/38442902001/HTMLka.dcu.html