[v1s2222]

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  WebBrowser1.Navigate(Path + ListBox1.Items[ListBox1.ItemIndex] + '.html');
end;