procedure TMainForm.Open1Click(Sender: TObject);
begin
   if OpenDialog.Execute then
  WebBrowser1.Navigate(WideString(OpenDialog.FileName));
end;