1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

if fileexists(Pr_FileName) then    
          begin
            if ((FileDateToDateTime(FileAge(Pr_FileName)) <> FileDateToDateTime(FileAge(ExistingFilename))) and
               ((FileGetAttr(Pr_FileName) and faArchive) = faArchive)) then
            begin
              erg := xmessagedlg('ArchivBit wurde gesetzt' +#13 +
                       'Soll    ' + pr_filename+ ' '+#13+ datetimetostr(filedatetodatetime(FileAge(Pr_Filename))) +#13+
                       'durch '   + existingfilename  + ' '+#13+ datetimetostr(filedatetodatetime(FileAge(ExistingFileName))) +#13+
                       ' ersetzt werden?', mtConfirmation, [mbYes, mbno, mbcancel], ['ja', 'nein', 'Abbrechen'], self.font);

              case erg of mryes    : CopyFile(PChar(ExistingFileName), PChar(Pr_FileName), FALSE);
                          mrcancel : raus := true;
              end;
            end;
          end             {CreateDir oder forcedirectories(label30.caption+uvname);}
          else
          begin
            erg := xmessagedlg('Soll '+ pr_filename + #13+ ' angelegt werden?', mtConfirmation,
                     [mbYes, mbNo, mbcancel], ['ja', 'nein', 'Abbrechen'], self.font);
            case erg of mryes    : begin                  //label30.caption+uvname
                                     if not directoryexists(ziel+uvname) then
                                       CreateDir(ziel+uvname);
                                     CopyFile(PChar(ExistingFileName), PChar(Pr_FileName), TRUE);
                                   end;
                        mrcancel : raus := true;
            end;
          end;					

1:
2:
3:

if (extractfileext(Pr_filename) = '.dbf') and (extractfileext(existingfilename) = '.dbf') then
              showmessage(Pr_filename + timetostr(FileDateToDateTime(FileAge(Pr_FileName))) + #13 +
                          existingfilename + timetostr(FileDateToDateTime(FileAge(existingfilename))));