проблема в программе

[cheef]

Делаю программу Mp3 плеер через newac такая проблема беспокоет.
Кокда открываю файл процедура:

if opendialog1.Execute
then
MP3In1.FileName := OpenDialog1.FileName;
...
всё работает подалжаю слушать музыку хоч посмотреть информацию о
программе: код
if streeview1.Items.Item[0].Selected Then smemo1.Lines.LoadFromFile('data\text\programm.txt');
if streeview1.Items.Item[1].Selected Then smemo1.Lines.LoadFromFile('data\text\skin.txt');
if streeview1.Items.Item[2].Selected Then smemo1.Lines.LoadFromFile('data\text\playlist.txt');
if streeview1.Items.Item[3].Selected Then smemo1.Lines.LoadFromFile('data\text\pred.txt');
if streeview1.Items.Item[4].Selected Then smemo1.Lines.LoadFromFile('data\text\aneckdot.txt');
то файлы не откывает прога ищет их по путю (путь от опендиалога + 'data\text\имя файла)

естественно в этой папке их нету!я уже всё пробавал:
находил путь к программе добавлял 'data\text\имя файла' , но путь то всё равно меняется?
Помогите(

[Stilet]

Дык файлы находятся возле экзешника?
Тогда так:

if streeview1.Items.Item[4].Selected Then smemo1.Lines.LoadFromFile(ExtractFilePath(paramstr(0))+'data\text\aneckdot.txt');

[cheef]

огромное спасибо выручил)!