Загрузка txt файла в Memo

[FleXik]

Как сделать загрузку txt файла в Memo, но при этом в коде не указывать названия файла, файл txt в папке всего один, и из него нужно будет подгружать в Memo, реально ли это?

Memo1.Lines.LoadFromFile('.txt');

[xoodoo]

Например, так:

FileListBox.Directory := 'c:\ПапкаВКоторойВсегоОдинTxtФайл';
FileListBox.Mask := '*.txt';
Memo.Lines.LoadFromFile(FileListBox.Directory + '\' + FileListBox.Files.Items[0]);

[FaTaL]

Если имя не известно, то только через поиск FindFirst, FindNext, FindClose

[FleXik]

xoodoo, FaTaL, спасибо