Проблема с FileListBox-ом

[WhoThenNow]

Что я делаю нетак? проблема в низу, вот кусок кода
-------------------------
//процедура вывода содержимого папки txt
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(Path+SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

//вывод файлов на filelistbox по нажатию кнопы
procedure TForm1.OpenTXTClick(Sender: TObject);
begin
FileListBox1.Clear;
ListFileDir('D:\txt\', FileListBox1.Items);
end;

//присваиваем переменной путь к файлу по клику на нем
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
FIle2Name:=FileListBox1.FileName;
------------------------------------
Почему File2Name - выглядит не как "D:\txt\имя файла", а "путь к exe-файлу\D:\txt\имя файла"
Заранее спасибо.

[Alex21]

Надо менять и директорию самого листбокса:

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(Path+SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
Form1.FileListBox1.Directory:=Path;
end;