[lmikle]

Все можно. Вопрос только в том, как лучше сделать для конкретной задачи.
Например, для описанных условий (папки с файлами), создаем в папке программы папку для ресурсов. Пусть она называется Data. В ней создаем подпапки с любыми названиями (эти имена будут показываться в ListBox). В каждой такой подпапке кладем текстовый файл с именем TEXT.txt и картинку с именем IMAGE.bmp.
В итоге имеем что-то типа такой структуры:

Код:

AppFolder
|
|-Data
  |
  |-Dir1
  | |-TEXT.txt
  | |-IMAGE.bmp
  |
  |-Dir2
  | |-TEXT.txt
  | |-IMAGE.bmp
  |
  |-Dir3
  | |-TEXT.txt
  | |-IMAGE.bmp  
  ...

Теперь нам нужен код, который:
1. При старте программы заполнит ListBox.
2. При выборе пункта в ListBox загрузит соотв. текст и картинку.

Код:

procedure TForm1.FormCreate(Sender : TObject);
var
  F : TSearchRec;
  iFound : Integer;
  RootPath : String;
begin
  ListBox1.Items.Clear;
  RootPath := ExtractFilePath(Applicaton.ExeName);
  RootPath := IncludeTrailingPathDelimiter(RootPath) + 'Data\';
  iFound := FindFirst(RootPath + '*.*', faAnyfile+fadirectory, F);
  While iFound = 0 Do
    Begin
      If ((F.Attr And fadirectory) <> 0) And (F.Name <> '.') And (F.Name <> '..') Then
        ListBox1.Items.Add(F.Name);
      iFound := FindNext(F);
    End;
  FindClose(F);
end;

procedure TForm1.ListBox1click(Sender : TObject);
var
  RootPath : String;
begin
  If ListBox1.ItemIndex = -1
    Then
      Begin
        Memo1.Lines.Clear;
        Image1.Picture.Graphic := Nil;
      End
    Else
      Begin
        RootPath := ExtractFilePath(Applicaton.ExeName);
        RootPath := IncludeTrailingPathDelimiter(RootPath) + 'Data\' + ListBox1.Items[ListBox1.ItemIndex]+'\';
        Memo1.Lines.LoadFromFile(RootPath + 'TEXT.txt');
        Image1.Picture.LoadFromFile(RootPath + 'IMAGE.bmp');
      End;
end;

Как-то так.