Не могу открыть файлы из формы поиска

[lexaltd]

У меня такая проблема
Мне надо найти текстовые файлы в какой то папке и показать их в одной форме и потом в другой форме открыть их для чтения
Ищу я так:

procedure Find;
var
SearchRec: TSearchRec;
begin
GetDir(0,cDir);
if cDir[length(cDir)] <> '\' then cDir := cDir+'\';

if FindFirst(FileName, faAnyFile,SearchRec) = 0 then
repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
begin
Form3.FileListBox1.Items.Add(Search Rec.Name);
n := n + 1;
end;
until FindNext(SearchRec) <> 0;
end;

Строка Form3.FileListBox1.Items.Add(Search Rec.Name); загружает имена файлов в Form3.FileListBox1 , но только имена , а мне надо чтоб туда загружались файлы полностью , чтоб я мог из этой формы открыть их в другой форме для чтения

Открывать из этой формы "Form3.FileListBox1" пытаюсь так :

Form2.Show;
Form2.Memo1.Lines.LoadFromFile(Form 3.FileListBox1.Filename);
Но пишет что не может найти путь

Помогите решить эту проблему

Зарание спасибо

[Stilet]

а мне надо чтоб туда загружались файлы полностью

их содержимое??

[Arigato]

Скорее всего в SearchRec.Name будет относительный путь к файлу. Так?
А если файлы лежат где-то (не в текущем каталоге), то они не будут найдены.

[lexaltd]

Сообщение от Stilet

их содержимое??

Файлы .txt (текстовые файлы), текст

[Stilet]

lexaltd

Ну ясно. Аригато прав.
Попробуй так:

Form2.Memo1.Lines.LoadFromFile(FileListBox1.Directory+'\'+FileListBox1.Items[i]);

здесь i - номер файла в списке

[lexaltd]

Сообщение от Stilet

Ну ясно. Аригато прав.
Попробуй так:

Form2.Memo1.Lines.LoadFromFile(FileListBox1.Directory+'\'+FileListBox1.Items[i]);

здесь i - номер файла в списке

Так не получилось

А вот так получилось , может кому то пригодится
Спасибо Stilet - что натолкнул на правильную мысль

var
i : integer;
begin
i := Form3.FileListBox3.ItemIndex;
Form2.Show;
Form2.Memo1.Lines.LoadFromFile(Form 3.FileListBox3.Items.Strings[i]);
end;