Вывод файла с диска в Twebbrowser

[Riddle199519]

Есть N кнопок по нажатию одной из них из БД вынимаются данные и создаётся html-страница далее запускается в окне twebbrowser. Код работает.

Проблема:
У меня html страница загружается без картинок.
Нужно:
-Решение с данным примером
-Аналоги
-Желательно чтоб аналог поддерживал js (Не обязательно)

procedure DynamicHTML(wb: TWebBrowser; HTMLPuth: string; numPage:integer);
  var
  z:TStrings;
  str: string;
  v: Variant;
  HTMLDocument: IHTMLDocument2;
begin
  Unit2.DataModule2.qry1.First;
  while Unit2.DataModule2.qry1.Eof<>True do
  begin
    if Unit2.DataModule2.qry1.Fields[0].AsInteger=numPage then Break;
    Unit2.DataModule2.qry1.Next;
  end;
  str:= Unit2.DataModule2.qry1.Fields[4].AsString + '</body></html>';
  try
  z:=tstringlist.Create();
  z.LoadFromFile(HTMLPuth);
  z.Add(str);
  HTMLDocument := WB.Document as IHTMLDocument2;
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := z.Text; 
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
  finally
  HTMLDocument.Close;
  z.Free;
  end;
end;

Люди помогите пожалуйста!

[Riddle199519]

Новые данные:
В общем проблема в том что файл создаётся динамически из-за этого пути к картинкам считается неправильными.