unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  indexno : integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ListBox1.Items.Text := 'www.hinet.net'   #13  
                          'www.seed.net.tw'   #13  
                          'www.google.com'   #13  
                          'tw.yahoo.com'  ;

   indexno := 0;
   timer1.Enabled := false;
   timer1.Interval := 1000*30;
   timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if listbox1.Items.count > 0 then begin
      WebBrowser1.Navigate(listbox1.items[indexno]);
      if indexno < listbox1.Items.Count-1 then begin
         indexno := indexno  1;
      end
      else begin
         indexno := 0;
      end;
   end;
end;

end.