Открыть созраненный файл HTML через TWebBrowser

procedure TForm2.btn3Click(Sender: TObject);
var
  GetHTML : string;
  ODi : TOpenDialog;
begin
  ODi := TOpenDialog.Create(Self);
  if ODi.Execute then
  begin
    GetHTML := ODi.FileName;
    wb1.Navigate(GetHTML);
  end;
end;

procedure TForm2.btn1Click(Sender: TObject);
begin
  wb1.Navigate('google.com');
end;

procedure TForm2.SaveHTMLSourceToFile(const FileName: string;
  wb1: TWebBrowser);
var
  PersistStream: IPersistStreamInit;
  FileStream: TFileStream;
  Stream: IStream;
  SaveResult: HRESULT;
begin
  PersistStream := wb1.Document as IPersistStreamInit;
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    SaveResult := PersistStream.Save(Stream, True);
    if FAILED(SaveResult) then
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
  finally
    FileStream.Free;
  end;
end;
 
procedure TForm2.btn2Click(Sender: TObject);
var
  SDi : TSaveDialog;
begin
  SDi := TSaveDialog.Create(Self);
  if SDi.Execute then
    SaveHTMLSourceToFile(SDi.FileName, wb1);
end;

procedure TForm2.btn3Click(Sender: TObject);
var
  GetHTML : string;
  ODi : TOpenDialog;
begin
  ODi := TOpenDialog.Create(Self);
  if ODi.Execute then
  begin
    GetHTML := ODi.FileName;
    wb1.Navigate(GetHTML);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    WebBrowser1.Navigate(OpenDialog1.FileName);
end;