OldFileName := 'temp.dbf'; ShortDateFormat:='ddmmyy'; RenameFile(OldFileName,StringReplace(DateToStr(now),'.','',[rfReplaceAll])+ExtractFileExt(OldFileName));