procedure GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
  dt:TDateTime;
  st:_SYSTEMTIME;
begin 
  directory := ExtractFilePath(mask); 

  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
       dt := FileDateToDateTime(search.Time);
       DateTimeToSystemTime(dt, st);
       if (st.wYear = 2009) and // проверяем дату и время файла.
          (st.wMonth = 10) and
          (st.wDay = 2) and
          (st.wHour = 17) and
          (st.wMinute = 12) then DeleteFile(directory + search.Name); // если совпала то удалим.
// вообще можно и по красивее и правильнее написать, то влом  и времяни нет
    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; 



procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllFiles('u:\*.txt'); // на диске U: найти все txt файлы 
end;

end.