[jekahm]

Доброго времени суток!
Столкнулся с такой вот проблемой!
Есть код, который выводит список текстовых файлов определённой папки в ListBox:

Код:

Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);
Var SearchRec : TSearchRec;
Begin
  IF Mask ='' then Mask:= '*.txt*';
  IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
  IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
    Begin
     Repeat
      Application.ProcessMessages;
      IF (SearchRec.Attr and faDirectory) <> faDirectory then 
         List.Add(SearchRec.Name) else
          IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
        Begin
          List.Add(StartDir + SearchRec.Name + '\');
          ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
        End;
     Until FindNext(SearchRec) <> 0;
     FindClose(SearchRec);
   End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
  ScanDir(ExtractFilePath(ParamStr(0)),'',ListBox1.Items);
  Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

Что необходимо сделать, чтобы вывести содержимое текстового файла (например, в RichEdit), который выделен в ListBox?
Заранее благодарен!