Помогите переделать код

[stayer]

1)
unit Unit1;

interface

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

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Panel1: TPanel;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://');
// переходить только, если введен URL
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
WebBrowser1.Navigate(Opendialog1.Fi leName);
end;
end.

как сделать так чтобы программа заходила на сайт не по клику, а по счетчику . то есть я устанавливаю количество нужных заходов на сайт и она столько раз переходит по этой странице..как изменить код?? прошу конкретные примеры пожалуйста??

[Sanek777]

А не але сделать чтобы события перехода на сайт повторялись с определенной последовательностью по таймеру? (p.s. за 5$сделаю такую прогу сегодня)!!!

[russian-stalker]

Так значит добавляешь SpinEdit из Samples и timer из system

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Timer1: TTimer;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kolvo: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
kolvo:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
if kolvo>=spinedit1.Value then
begin
timer1.Enabled:=false;
kolvo:=0;
end;
timer1.Interval:=5000;//Раз в 5 секунд
WebBrowser1.Navigate('http://russian-stalker.net.ru');
kolvo:=kolvo+1;
end;

end.

[maxvodo.dll]

я бы за такие проги яйца отрывал)