WebBrowser не выводит содержимое файлов

Procedure TForm1.LoadHTML(HTML: String);
Var
  MaxNow: TDateTime;
Begin
WebBrowser1.Navigate('about:blank');
MaxNow := IncSecond(Now(), 4);
While (WebBrowser1.ReadyState < READYSTATE_COMPLETE) And (Now() < MaxNow) Do
  Application.ProcessMessages();
WebBrowser1.OleObject.document.body.innerHTML := HTML;
End;
 
Procedure TForm1.LoadFile(FileName: String);
Var
  FullPath: String;
Begin
FullPath := ProgramPath + FileName;
If FileExists(FullPath) Then
  WebBrowser1.Navigate(FullPath)
Else
  LoadHTML('Файл не найден:<br/><div style="border: solid red 2px;">' + FullPath + '</div>');
End;
 
Procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
Begin
Case Node.StateIndex Of
  -1:
    LoadHTML('Выберите одну из подкатегорий...');
  1:
    LoadFile('data\1. Работа с ОС и терминалом\1.1 Знакомство с терминалом.htm');
  ...
  ...
  ...
  60:
    LoadFile('data\4. Лабораторные работы\Лабораторная работ № 25.htm');
  Else
    LoadHTML('Неизвестный индекс:<br/><div style="border: solid red 2px;">' + IntToStr(Node.StateIndex) + '</div>');
  End;
End;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, ComCtrls, ImgList,
  ExtCtrls, Buttons, OleCtrls, SHDocVw, MSHTML, ActiveX, Vcl.Imaging.jpeg;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Button2: TButton;
    Image1: TImage;
    XMLDocument1: TXMLDocument;
    ImageList1: TImageList;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button9: TButton;
    Button10: TButton;
    ComboBox1: TComboBox;
    Panel3: TPanel;
    Panel4: TPanel;
    ProgressBar1: TProgressBar;
    TreeView1: TTreeView;
    procedure TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure WebBrowser1ProgressChange(ASender: TObject; Progress, ProgressMax: Integer);
    procedure Button10Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
  TPXmlNode = ^IXMLNode;
 
procedure ClearTreeData(aTree: TTreeView);  //Очистка дерева перед загрузкой файла
var
  TreeNode: TTreeNode;
  PXmlNode: TPXmlNode;
  i: Integer;
begin
  if aTree = nil then
    Exit;
  for i := 0 to aTree.Items.Count - 1 do
  begin
    TreeNode := aTree.Items[i];
    PXmlNode := TPXmlNode(TreeNode.Data);
    if PXmlNode <> nil then
      Dispose(TPXmlNode(TreeNode.Data));
  end;
  aTree.Items.Clear;
end;
 
procedure ProcXmlNode(aXmlNode: IXMLNode; aTree: TTreeView; aTreeNode: TTreeNode); //Рекурсивный перебор всех нодов
var
  NewTreeNode: TTreeNode;
  PXmlNode: TPXmlNode;
  i: Integer;
begin
  NewTreeNode := TTreeNode.Create(aTree.Items);
  New(PXmlNode);
  PXmlNode^ := aXmlNode;
  if aTreeNode = nil then
    NewTreeNode := aTree.Items.AddNode(NewTreeNode, aTreeNode, aXmlNode.NodeName, PXmlNode, naAdd)
  else
    NewTreeNode := aTree.Items.AddNode(NewTreeNode, aTreeNode, aXmlNode.NodeName, PXmlNode, naAddChild);
  for i := 0 to aXmlNode.ChildNodes.Count - 1 do
    ProcXmlNode(aXmlNode.ChildNodes[i], aTree, NewTreeNode);
end;
 
procedure TForm1.FormCreate(Sender: TObject);     // Загрузка содержимого в Treeview
var
  XMLDoc: TXMLDocument;
  XmlNodeDoc: IXMLNode;
  Tree: TTreeView;
begin
  Tree := TreeView1;
  XMLDoc := XMLDocument1;
  ClearTreeData(TreeView1);
  XMLDoc.LoadFromFile('Data.XML');
  XmlNodeDoc := XMLDoc.DocumentElement;
  ProcXmlNode(XmlNodeDoc, Tree, nil);
end;
 
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  XmlNode, NameNode: IXMLNode;
  PXmlNode: TPXmlNode;
  i: Integer;
  AttrValue: Variant;
  HTMLPAGE, NodeName: string;
begin
  XmlNode := TPXmlNode(Node.Data)^;
  New(PXmlNode);
  PXmlNode^ := XmlNode;
  for i := 0 to XmlNode.AttributeNodes.Count - 1 do
  begin
    NameNode := XmlNode.AttributeNodes.Get(0);
    if not VarIsNull(NameNode.NodeValue) then
      HTMLPAGE := NameNode.NodeValue;
  end;
  WebBrowser1.Navigate(ExtractFilePath(paramstr(0)) + HTMLPAGE);
  WebBrowser1.Silent := True;
end;
 
procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode); // Загрузка иконок в Treeview
begin
  with Node do
  begin
    if Expanded then
      ImageIndex := 1
    else
      ImageIndex := 0;
  end;
end;
 
procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress, ProgressMax: Integer);
begin
  ProgressBar1.Max := ProgressMax;
  ProgressBar1.Position := Progress;
end;
 
procedure TForm1.Button10Click(Sender: TObject);       //копирование выделенного текста
begin
  WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Doc, Histor: Variant;
begin
  Doc := WebBrowser1.OleObject.document;  //Ссылаемся на интерфейс документа;
  if TVarData(Doc).VDispatch = nil then
    Exit;  //Если документ отсутствует, тогда выходим;
  Histor := Doc.parentWindow.history;  {Объект документа - объект родительского окна - объект содержащий историю переходов Шаг назад к предыдущему URL.}
  ;
  Histor.go(-1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.ExecWB(OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Doc, Histor: Variant;
begin
  Doc := WebBrowser1.OleObject.document;  //Ссылаемся на интерфейс документа;
  if TVarData(Doc).VDispatch = nil then
    Exit;  //Если документ отсутствует, тогда выходим;
  Histor := Doc.parentWindow.history;  {Объект документа - объект родительского окна - объект содержащий историю переходов Шаг вперед к предыдущему URL.}
  ;
  Histor.go(1);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT);  //Предварительный просмотр
end;
 
procedure TForm1.Button6Click(Sender: TObject);
var
  PostData, Headers: OLEvariant;
begin
  WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);  //Печатаем содержимое TWebBrowser;
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
  WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);  //Сохраняем содержимое WebBrowser1
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.Body.Style.Zoom := (ComboBox1.Text);
end;
 
end.

Procedure TForm1.LoadHTML(HTML: String);

Procedure TForm1.LoadHTML(HTML: String);
Var
  MaxNow: TDateTime;
Begin
WebBrowser1.Navigate('about:blank');
MaxNow := IncSecond(Now(), 4);
While (WebBrowser1.ReadyState < READYSTATE_COMPLETE) And (Now() < MaxNow) Do
  Application.ProcessMessages();
WebBrowser1.OleObject.document.body.innerHTML := HTML;
End;