LoadHTMLToWebBrowser(Webbrowser1,'01.htm');

[shmia]

Sag doch gleich, dass du nur eine lokale Datei hast.

Delphi-Quellcode:

var
  filename:string;
begin
  filename := ListBox1.Items[0]; {<= lokale Datei mit der Endung htm}
  if FileExists('file:'+filename) then
    WebBrowser1.Navigate( filename)
  else
    raise Exception.CreatFmt('Datei %s nicht gefunden', [filename]);