lass den ganzen "schnotter" doch mal weg. erstell dir deine stringliste.
füge eine zeile hinzu und dann führe nur mal den folgenden code aus:
Delphi-Quellcode:
sFileName := Pvw_Path + '
index.html';
if fileexists(sFileName)
then
DeleteFile(sFileName);
try
HtmlList.SaveToFile(sFileName);
HtmlList.Clear;
HtmlList.Free;
except
on e:
exception do
begin
ShowMessage('
error = ' + e.
Message);
end;
end;
web.Navigate(sFileName);
Anmerkung:
sleep bringt dir nix, das lässt dein programm pausieren,
dann nimm lieber ein Application.ProcessMessages
gib mal feedback wie das nun ausgegangen ist.