[AlienZ]

Добрый день. Появился такой вопрос.
Необходимо связать ListBox и Memo таким образом, чтобы ListBox заносил в Items список всех текстовых файлов в определенной папке, а при клике на какой-либо файл из списка его содержимое выводилось в Memo.

Получение списка файлов организовал таким образом:

Код:

Procedure FindFile(path, ext: string);
Var SR : TSearchRec;
    Res : Integer;
begin
  Res := FindFirst(path+ext, faAnyFile, SR);
  while Res = 0 do
  begin
   Form1.ListBox1.Items.Add(path+Sr.Name);
   Res := FindNext(SR);
  end;
  FindClose(SR);
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
FindFile('C:\Test\', '*.txt');
end;

А вот как связать файл из списка, Memo и непосредственно сам текстовый файл понять не могу... Помогите кто может плз:-)