Listar todos os arquivos do diretório corrente

Esta função retorna todos os arquivos do diretório corrente em um objeto TStringList.

function FillDir(Const AMask: string): TStringList;
var
  SearchRec : TSearchRec;
  intControl : integer;
begin
  Result := TStringList.create;
  intControl := FindFirst( AMask, faAnyFile, SearchRec );
  if intControl = 0 then
  begin
    while (intControl = 0) do
    begin
      Result.Add( SearchRec.Name );
      intControl := FindNext( SearchRec );
    end;
    FindClose( SearchRec );
  end;
end;

Como usar:
Como parâmetro de entrada informe a máscara dos tipos de arquivos que deseja listar, por exemplo: para listar todos os arquivos .zip coloque como parâmetro de entrada: '*.zip'