HTML-Seiten aus Filelistbox in Browser als Webshow abspielen

[Silas1967]

Wie kann ich 4 gelistete HTML-Seiten aus einer Filelistbox timergesteuert in einem neuen Fenster mit Webbrowser öffnen und als "Webshow" abspielen lassen, sodass im 2-Sekunden-Takt alle HTML-Seiten aus der Filelistbox nacheinander angezeigt werden?

--Wichtige Eigenschaften sind:
Filelistbox1.itemindex
Filelistbox1.items.count
Filelistbox1.Filename
Timer1.interval
Timer1.enabled

--Variablen sind:
pagename {enthält den Dateinamen der aktuell angezeigten Webseite}
n {Zähler für die anzuzuzeigende Webseiten}


Menüpunkt Webshow {in Form 1} zeigt Fenster Form2 an und startet Timer1, dann werden alle HTML-Seiten angezeigt bis der Zähler "n" auch die letzte Seite gezeigt hat. Jetzt muss der Timer wieder angehalten werden. Meldung der letzten Seite in einem ShowMessage-Fensterchen. Danach automatisches Schließen der Form2

procedure TForm1.WebShow1Click(Sender: TObject);
var
pagename : string; {enthält den Dateinamen der aktuell angezeigten Webseite}
n : integer; {Zähler für die anzuzuzeigende Webseiten}
begin
form2.show; {öffnet zweites Fenster mit Webbrowser}
Timer1.Enabled := true;
FileListBox1.ItemIndex := [0..3]; {für die 4 anzuzeigenden HTML-Seiten}
for n := 0 to FileListBox1.Items.Count -1 do
begin
if pos (FileListBox1.ItemIndex.....?????
then

??????????????????????????????? end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
???????
end;

[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;