[Kailon]

Код:

var
  SearchResult: TSearchRec;
begin
  if FindFirst('*.eml', faAnyFile, SearchResult) = 0 then
    repeat
      //что-то делаешь
    until FindNext(SearchResult) <> 0;
  FindClose(SearchResult);
end;