안녕하세요?
아래에 간단한 코드를 만들어 봤습니다. 관련함수들은 SysUtils.pas에 있습니다.

procedure TForm1.Button1Click(Sender: TObject);
var
   Found: Integer;  //파일검색결과를 저장할 변수, 찾으면 0 리턴
   SearchRec: TSearchRec; //파일검색 결과를 저장할 구조체(도움말참조)
begin
   //검색 시작
   Found:= SysUtils.FindFirst('c:temp*.*', faAnyFile, SearchRec);
   try
       //파일을 찾았을 때 처리
       while Found=0 do
       begin
           //찾은 것이 파일일 경우에
           if (SearchRec.Attr<>faDirectory) and (SearchRec.Name<>'.')   and (SearchRec.Name<>'..') then
               Listbox1.Items.Add(SearchRec.Name);
           //다음 파일 검색
           Found:= SysUtils.FindNext(SearchRec);
       end;
   finally
       //검색 종료
       SysUtils.FindClose(SearchRec);
   end;
end;

전체 골격은 아래와 같습니다. 더 자세한 것은 해당유닛과 도움말을 참고하세요.

   answer:= FindFirst();
    try
        while answer=0 do
        begin
             //이부분에 필요한 내용 처리
             answer:= FindNext();
        end;

   finally
        FindClose();
   end;