Помогите с TreeView и WebBrowser

Всем Привет, написал код чтобы вб открывал hmtl документ, но он его не открывает.
Подскажите в чем ошибка:
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, OleCtrls, SHDocVw;

type

TForm2 = class(TForm)
WebBrowser1: TWebBrowser;
TreeView1: TTreeView;
procedure TreeView1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected.Index=1
then WebBrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'html\1.1.html');

end;

end.

 

Попробуй в процедуре:
if OpenDialog1.Execute then
WebBrowser1.Navigate(OpenDialog1.FileName);

Нужно перед названием папки написать '\', например '\html\1.1.html, если html - это папка

 

Нашел ошибку. Почему то у Главы 1.1 индекс 0, хотя ставил 1.