[X-rem]

Да, Вот исходник :

Код:

 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Wininet, OleCtrls, SHDocVw, HTTPApp, HTTPProd, xmldom, XMLIntf,
  msxmldom, XMLDoc, Sockets, DBXpressWeb, DBBdeWeb, DSProd, DBWeb, StdCtrls,
  XPMan, WebAdapt, WebComp, ActnList, ExtActns, ComCtrls, ExtCtrls, Buttons,
  jpeg, Menus, IniFiles, Registry, Spin;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Splitter1: TSplitter;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Splitter2: TSplitter;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    Label5: TLabel;
    Splitter3: TSplitter;
    BitBtn2: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    SpinEdit1: TSpinEdit;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.WebBrowser1.Navigate(Form1.Edit3.Text);
end;
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
Form1.Label4.Caption:='Идет загрузка страницы...';
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Form1.Label4.Caption:='Готово';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.BitBtn1.Enabled:=False;
Form1.BitBtn2.Enabled:=False;
Form1.Timer1.Interval:=Form1.SpinEdit1.Value;
Form1.Timer1.Enabled:=True;
Form1.SpinEdit1.Enabled:=False;
Form1.WebBrowser1.Refresh2;
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if Form1.SpinEdit1.Value<0 then Form1.SpinEdit1.Value:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.WebBrowser1.Refresh2(EmptyParam);
end;
end.