Адрес к Help в Delphi

[-=TurboRufus=-]

Никак не могу найти способ, чтобы в свойствах проекта прописать относительный адрес к файлу хэлпа.
Нужно, чтобы при любом расположении программы, файл, находящийся в папке Help, которая располагается в том же каталоге, что и программа, открывался без проблем.
Прописывать в коде через ExtractFileDir(Application.ExeName) + '\Help\HelpFile.hlp'; тоже не получается. Есть каки-нибудь идеи?

Comments

[ArcheryMask]

а что выдает эта строка , там случайно не две палочки получается?
а вообще относительный адрес пишется без слеша в начале.
ExtractFileDir(Application.ExeName) правильный ответ выдает?
А как вы открываете хелп, по Ф1 ?

[Tigresa]

В С++ было бы ExtractFileDir(Application.ExeName) + "\\Help\\HelpFile.hlp";
В Паскале не так же?

[-=TurboRufus=-]

А как вы открываете хелп, по Ф1 ?

procedure TfmLTX.miContentsClick(Sender: TObject);
begin
Application.HelpCommand(HELP_FINDER, 0);
end;

до этого на странице проекта задается вот так
if DM.OpenTables then begin
Application.HelpFile := 'Help\HelpFile.hlp';
при этом файл не отрывается ибо не находится (пробовала различные вариации: '\\Help\HelpFile.hlp', '...\Help\HelpFile.hlp', '.\Help\HelpFile.hlp' и прочее)

Если в коде программы прописать
Application.HelpFile := ExtractFileDir(Application.ExeName)+ '\Help\HelpFile.hlp';
то откомпилированная программа файл открывает, НО повторное открытие проектного файле уже не возможно, + невозможно открыть свойства проекта + не запускается программа из делфи по F9.

а что выдает эта строка , там случайно не две палочки получается?

- не поняла конкретно этого вопроса.

[-=TurboRufus=-]

повторное открытие проектного файле уже не возможно

вот такая ошибка выдается, если закрыть и открыть заново файл проекта