Problem beim Seitenaufbau

[freaktonx]

Hey ich bin dabei mir ein kleines Programm zu schreiben dass den Router neustartet dann eine Seite aufruft und dann das gleiche immer wieder. Aber das Problem ist das sich die Seite immer ganz schnell neu läd und nich wie ich mir das vorgestellt habe nur einmal. Wäre nett wenn mir jemand sagen könnte was ich da ändern muss damit die Seite sich nur einmal pro durchlauf aufbaut.

Delphi-Quellcode:

interface

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

type
  TForm1 = class(TForm)
    Start: TButton;
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    Edit1: TLabeledEdit;
    Beenden: TButton;
    StatusBar1: TStatusBar;
    WebBrowser1: TWebBrowser;
    ProgressBar2: TProgressBar;
    procedure StartClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BeendenClick(Sender: TObject);
    procedure WebBrowser1ProgressChange(ASender: TObject; Progress,
      ProgressMax: Integer);
      end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StartClick(Sender: TObject);
  var  Exe : string;
begin
timer1.Enabled := true;
Exe := 'C:\RouterReconnect.exe';
ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
   var Exe : string;
         i : integer;
begin
 progressbar1.position := progressbar1.position +1;
 for i := 1 to 1 do begin
 if progressbar1.position = progressbar1.max then
 begin
 Webbrowser1.Navigate(Edit1.text);
end;
end;

 if progressbar2.Position = progressbar2.max then
 begin
   progressbar1.position :=0;
 end; 

 if progressbar1.Position = progressbar1.Min then
 begin
 Exe := 'C:\RouterReconnect.exe';
 ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
end;
end;

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress: Integer; ProgressMax: Integer);
begin
  if progressbar2.Position < progressbar2.max then
  begin
    progressbar2.Max:=progressMax;
    progressbar2.Position:=Progress;
  end
    else
    begin
      progressbar2.Position:=0;
    end;
end;

procedure TForm1.BeendenClick(Sender: TObject);
begin
 application.Terminate;
end;

end.

gruß freaktonx