вибивает ошибку!

[fojia]

выбивает ошибку и не хочет загружать файл files/macos/install.html!как исправить?

if  TreeView2.Selected <> nil then begin
      case TreeView2.Selected.Index of
       0:WebBrowser1.Navigate(extractfilepath(application.ExeName)+'files/unix/ubuntu/install.html')  ;
       1:WebBrowser1.Navigate(extractfilepath(application.ExeName)+'files/unix/linux/install.html')  ;
       2:WebBrowser1.Navigate(extractfilepath(application.ExeName)+'files/unix/freedos/install.html')  ;
       3:WebBrowser1.Navigate(extractfilepath(application.ExeName)+'files/unix/opendos/install.html')  ;
      end;
      end  else if image1.onclick then WebBrowser1.Navigate(extractfilepath(application.ExeName)+'files/macos/install.html') end;

[Человек_Борща]

....else if image1.onclick then....

Что за вздор? OnClick это процедура. И по этому она не может вернуть boolean результат.

[fojia]

тогда как надо?

[Человек_Борща]

Незнаю.
а зачем такой бред писать?

end  else if image1.onclick then WebBrowser1.Navigate(extractfilepath(application.ExeName)+'files/macos/install.html') end;