czytanie nazwy pliku z katalogu

Muszę napisać program, który po włożeniu płyty przeczyta z niej wszystkie znajdujące sie na niej pliki i wpisze je do tabeli. Czy istnieje jakaś funkcja pozwalająca to wykonać? Chodzi mi tylko o nazwy plików i ewentualnie ich rozszerzenia. Proszę o pomoc

FindFirst oraz FindNext + F1 [green]

procedure TMainForm.Find(const Path: String);
var
  Found : Integer;
  SR : TSearchRec;
  ListItem : TListItem;
begin
{
  Funkcja wyszukuje wszystkie pliki zawarte w katalogu okreslonym poprzez
  parametr Path. Nastepnie znaleziony plik wraz z nazwa oraz atrybutem
  dodaje do komponentu ListView.
}
  Found := FindFirst(Path + '\*.*', faAnyFile+faHidden+faSysFile+faReadOnly, SR);
  while (Found = 0) do
  begin
    ListItem := ListView.Items.Add;
    ListItem.Caption := LowerCase(SR.Name);  // nazwa
{  Pobiera rozmiar i dzieli go przez 1024 otrzymujac ilosc kilobajtow }
    ListItem.SubItems.Add(FloatToStr(SR.Size div 1024) + ' kB');
    ListItem.SubItems.Add(FileAttr(SR.FindData)); // dodaj artybut poprzez wywolanie funkcji

    Found := FindNext(SR); // szukaj dalej
  end;
  FindClose(SR);  // zakoncz przeszukiwanie
end;