[pesi]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  isFound: boolean;
  temp, APath : string;
   dat1, dat2 : tdate;
begin
dat1:=StrToDate( '11.07.2009' );  //дата
 APath:='papka\';   //путь
 isFound := FindFirst( APath + '*.*', faAnyFile, sr ) = 0;  //Поиск первого файла
  while isFound do
   begin
     if ( sr.Name <> '.' ) and ( sr.Name <> '..' ) and    //Если файл не является папкой 
         ( ( sr.Attr and faDirectory ) <> faDirectory ) then
         begin
           temp := ExtractFileName( sr.Name );   //получаем имя файла 
           dat2:=( FileDateToDateTime(FileAge( APath + sr.Name ) ) ) ;  //получаем дату

            if dat1  >  dat2
             then DeleteFile(apath + temp);

         end;
       isFound := FindNext( sr ) = 0;   //ищем следующий файл
   end;
   FindClose( sr );  // прекратить поиск
end;