Доброго времени суток.
Подскажите пожалуйста, есть ли такой компонент, который представил список всех файлов ТХТ в текущем каталоге?, что бы потом мог открыть по отдельности? типа маленького проводника?

Решение:

Код:
procedure FilesInDirectory(Path: string; List: TStringList);
var
  SR: TSearchRec;
begin
  if FindFirst(Path, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faAnyFile) then
      if not ((SR.Name = '.') or (SR.Name = '..')) then List.Add(SR.Name);
    until FindNext(SR) <> 0;

    FindClose(SR);
  end;
end;

Получение списка файлов папки