ذخیره کامل یه صفحه وب به صورت HTML

سلام

چطوری میتونم یک صفحه وب رو به صورت کامل همراه با تصاویرش رو ذخیره کنم ؟

کد زیر رو گرفتم :

procedure TWebSiteForm.WB_SaveAs_HTML(WB: TWebBrowser; const FileName: string);

var

  PersistStream: IPersistStreamInit;

  Stream: IStream;

  FileStream: TFileStream;

begin

  if not Assigned(WB.Document) then

  begin

    ErrorMessage('نرم افزار قادر به ذخیره صفحه نمی باشد');

    Exit;

  end;

  PersistStream := WB.Document as IPersistStreamInit;

  FileStream := TFileStream.Create(FileName, fmCreate);

  try

    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;

    if Failed(PersistStream.Save(Stream, True)) then

      ErrorMessage('نرم افزار قادر به ذخیره صفحه نمی باشد');

  finally

    FileStream.Free;

  end;

end;

صفحه موجود در Web Browser رو ذخیره میکنه ، اما فقط متنهاش رو ذخیره میکنه و عکسهاش رو ذخیره نمیکنه
من دنبال کدی هستم که همه صفحه رو به همراه عکساش ذخیره کنه