var List :Tstringlist;
begin
   List := tstringlist.create;
   try
     GetDirList('c:\databases\',List,{'????-??-??'} '*',true,2);
     List.SaveToFile('c:\temp\1.txt');
   finally
     List.free;
   end;
end.