webbrowser чтение документа .HTML формата

[SKS]

Доброго времени суток уважаемые форумчане!
Не так давно делал электронный учебник с использованием компонента webbrowser, сейчас возникла необходимость создать программу читающую документы формата .HTM ,а как делать не помню.
вот мой код чтения документа:

webbrowser1.Navigate('doc/1.htm' )

но он не работает, юзал юзал и не могу сделать, то ли переработал, то ли мозги ссохлись.
в общем допустим в папке лежит программа, и в той папке где лежит программа лежит еще одна папка (doc) с документами типа 1.htm как реализовать открытие документов? как прописать путь?
На форуме искал не могу найти ответ на мой вопрос

[mss]

webbrowser1.Navigate(Format('file:///%s/doc/1.htm', [ExtractFilePath(ParamStr(0))])

[mss]

Один момент важен: результат работы ф-ции Format() не должен содержать символов, недопустимых в URL. Если это не так, то придется обработать URL ф-цией а-ля TIdURI.URLEncode (см.Indy) или любой иной эквивалентной по назначению

[Пепел Феникса]

можно было просто дополнить путь до полного.
WB не применяет относительные пути.

[SKS]

Если прописать полный путь до файла, тогда получится что написанная программа будет читать только по пути прописанному компоненту. А если например пользователь установит программу на диск D: а не на С: тогда документы не будут загружаться. Не могу вспомнить никак простенький код. Код читал по пути нахождения программы. попробовал поюзать код предложенный mss не получается.
Есть у кого еще какие методы загрузки документа форматов .HTM или .HTML в компонент WebBrowser?

[Пепел Феникса]

ExtractFilePath(ParamStr(0))+'<путь до файла, относительно приложения>';
правда про косую запямятовал.

[SKS]

Нашел решение. Для того чтобы открыть файл в папке. Допустим имеется программа и где лежит программа имеется папка с именем (doc) а в папке находится документ допустим формата .htm нам нужно чтобы программа читала документ в папке и показывала его в компоненте WebBrowser

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'doc/index.htm');
end;

[SKS]

Нашел решение. Для того чтобы открыть файл в папке. Допустим имеется программа и где лежит программа имеется папка с именем (doc) а в папке находится документ допустим формата .htm нам нужно чтобы программа читала документ в папке и показывала его в компоненте WebBrowser

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'doc/index.htm');
end;