HTML-Seiten aus Filelistbox in Browser als Webshow abspielen

[scp]

Etwa so:

Delphi-Quellcode:

var
  n : integer; {Zähler für die anzuzuzeigende Webseiten} 
  pagename : string; {enthält den Dateinamen der aktuell angezeigten Webseite} 

procedure TForm1.WebShow1Click(Sender: TObject); 
begin 
  n := 0;
  form2.show; {öffnet zweites Fenster mit Webbrowser} 
  pagename := Filelistbox1.items[n];
  form2.WebBrowser1.Navigate(pagename);
  Timer1.Interval := 2000;
  Timer1.Enabled := true; 
end; 


procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Inc(n);
  If (n < Filelistbox1.items.count) then
    begin
      pagename := Filelistbox1.items[n];
      form2.WebBrowser1.Navigate(pagename);
    end
  else
    begin
      Timer1.Enabled := false;
      ShowMessage('Ende der Show');
      form2.hide;  // oder form2.close;
    end;
end;