[HELP]Assistant schaltet sich aus

[Gabberjool]

Hallo alle,
Ich habe folgendes problem. Nach dem der Timer mit dem Status auf 100% ist, sollte er über den Assistant die Message ausgegeben werde. Die man dann mit Ok bestätigen soll.

Das Problem ist, das sich der Assistant schliß sobald man auf Ok klickt obwohl er das nicht sollte.

Wisst ihr evt woran das ligt ?
Besten dank schonmal...

Delphi-Quellcode:

const
  Msg = 'Script wurden Installiert, du kannst nun die Buttons benutzen^.';
begin Probar1.Position := Probar1.Position +1;
      Application.ProcessMessages;

If Probar1.Position = 10 then
  Begin bsSkinCheckRadioBox1.Checked := true;
        bsSkinButton2.Visible := true; end;

If Probar1.Position = 25 then
  Begin bsSkinCheckRadioBox3.Checked := true;
        bsSkinButton1.Visible := true;  end;

If Probar1.Position = 48 then
  Begin bsSkinCheckRadioBox2.Checked := true;
        bsSkinButton3.Visible := true;  end;

If Probar1.Position = 82 then
  Begin bsSkinCheckRadioBox4.Checked := true;
        bsSkinButton4.Visible := true;  end;

If Probar1.Position = 99 then
  Begin positiv.Visible := True;
        negativ.Visible := False; end;


If Probar1.Position = 100 then
  begin bsSkinCheckRadioBox5.Checked := true;
        Timer1.Enabled := false;
        Probar1.Position := 100;
        bsSkinButton2.Enabled := True;
        bsSkinButton1.Enabled := True;
        bsSkinButton3.Enabled := True;
        bsSkinButton4.Enabled := True;
        Assistant1.MsgDlg.Title := 'Installation Beendet !';
        Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0); end;  end;

Hier mal der ganze code... evt ligts da irgendwo

Delphi-Quellcode:

implementation

{$R *.dfm}

// Timer //////////////////////
//
procedure TForm1.Timer1Timer(Sender: TObject);
const
  Msg = 'Script wurden Installiert, du kannst nun die Buttons benutzen^.';
begin Probar1.Position := Probar1.Position +1;
      Application.ProcessMessages;

If Probar1.Position = 10 then
  Begin bsSkinCheckRadioBox1.Checked := true;
        bsSkinButton2.Visible := true; end;

If Probar1.Position = 25 then
  Begin bsSkinCheckRadioBox3.Checked := true;
        bsSkinButton1.Visible := true;  end;

If Probar1.Position = 48 then
  Begin bsSkinCheckRadioBox2.Checked := true;
        bsSkinButton3.Visible := true;  end;

If Probar1.Position = 82 then
  Begin bsSkinCheckRadioBox4.Checked := true;
        bsSkinButton4.Visible := true;  end;

If Probar1.Position = 99 then
  Begin positiv.Visible := True;
        negativ.Visible := False; end;


If Probar1.Position = 100 then
  begin bsSkinCheckRadioBox5.Checked := true;
        Timer1.Enabled := false;
        Probar1.Position := 100;
        bsSkinButton2.Enabled := True;
        bsSkinButton1.Enabled := True;
        bsSkinButton3.Enabled := True;
        bsSkinButton4.Enabled := True;
        Assistant1.MsgDlg.Title := 'Installation Beendet !';
        Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0); end;  end;


// Form Setting ///////////////////////
//
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
const
  Msg = 'Bist du sicher das du das Programm Verlassen Wilst ?';
begin Assistant1.MsgDlg.Title := 'Beenden';
      Assistant1.MessageDlg(Msg, mtInformation, [mbYes, mbNo], 0);
      Assistant1.Visible := False; end;

procedure TForm1.FormCreate(Sender: TObject);
begin Timer1.Enabled := True;
      positiv.Visible := False;
      Assistant1.Visible := True; end;


// Buttons Aktionen////////////////////////////
//
procedure TForm1.bsSkinButton1Click(Sender: TObject);
  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrGui\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinButton4Click(Sender: TObject);
  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrRcCfg\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinButton3Click(Sender: TObject);
  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrPic\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinButton2Click(Sender: TObject);
  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrTool\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinXFormButton1Click(Sender: TObject);
const
  Msg = 'Bist du sicher das du das Programm Verlassen Wilst ?';
begin Assistant1.MsgDlg.Title := 'Beenden';
      Assistant1.MessageDlg(Msg, mtInformation, [mbYes, mbNo], 0);
      Assistant1.Visible := False;
      close; end;

end.