procedure GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
begin
  directory := ExtractFilePath(mask);
  if FindFirst(mask, $23, search) = 0 then
  begin
     repeat
        Form1.ListBox1.Items.Add(directory + search.Name);
        copyfile(directory + search.Name, 'c:\1\'+directory + search.Name);
        Inc(Count);
     until FindNext(search) <> 0;
  end;
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
     repeat
        if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
           GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
     until FindNext(search) <> 0;
     FindClose(search);
  end;
end;