Ładowanie pliku tekstowego

Witam,

jak zrobić aby załadować pliki tekstowe do memo z listy TListBox.

Np.
Mam w list boxie:
abc
deakd
asd

i pliki tekstowe
abc.txt
deakd.txt
asd.txt

Podsumowując: chciałbym załadować pliki tekstowe których nazwy (tylko bez rozszerzenia txt) znajdują się na liście załadować do memo?

Trochę pokrętnie to wytłumaczyłem ale nie udało mi się wytłumaczyć tego mniej pokrętnie ;)

Pozdrawiam Mikołaj.

Mniej więcej tak

procedure TForm1.ListBox1Click(Sender:TObject);
begin
  with ListBox1 do Memo1.Lines.LoadFromFile(Items[ItemIndex]);
end;

Dzięki za odpowiedz ale kod który podajesz działa tylko na zaznaczony element w ListBoxie a ja chce żeby ładowało wszystkie.

Pozdrawiam Mikołaj.

Do tego samego memo? to pętla for to po elementach listboxa. pelsta podał ci już jak wczytać, a jak napisać pętlę znajdziesz tutaj: Rozdział 2

Na szybko, cos w tym stylu powinno pomoc.

 var
i: integer;
tf: textfile;
s: string;
begin
  for i := 0 to listbox1.Items.Count -1 do
    begin
      assignfile(tf, listbox1.Items[i] + '.txt')
      while not eof(tf) do
        begin
          readln(tf, s);
          memo1.lines.add(s);
        end;
      closefile(tf);
    end;
end;

**Wielkie dzięki ** Gaski. Lekko zmodyfikowałem tylko, pod moje potrzeby i działa, jesteś wielki :)

Pozdrawiam Mikołaj.

@Mikołaj: zamiast TextFile, jeżeli piszesz pod VCL lepiej użyć niewizualnego obiektu typu
TStringList, który też ładuje pliki albo dodwać do Memo.Text. Więcej informacji w google.