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

while FindFirst(Quelle, 0, sr ) = 0 do //So lange Dateien gefunden werden
  begin
     InDatei := ExtractFilePath(Quelle) + sr.Name;
     OutDatei := Ziel +  sr.Name;
     OutDateiBackup := Backup + '\' + sr.Name;
     if sr.Name <> 'EH*.*' then
       begin
         ForceDirectories(Ziel2); //Out-Verzeichnis erstellen
         FileCopy(InDatei, Ziel2); //Datei ins Ziel-Verzeichnis kopieren
       end
         else
           begin
             ForceDirectories(Ziel); //Out-Verzeichnis erstellen
             FileCopy(InDatei, Ziel); //Datei ins Ziel-Verzeichnis kopieren
           end;
     MailBody.Add(sr.Name + ' ins Ziel-Verzeichnis (' + Ziel + ') kopiert');
     ForceDirectories(Backup); //Backup-Verzeichnis ohne Unterverzeichnis erstellen
     FileMove(InDatei, Backup); //Datei ins Backup-Verzeichnis verschieben
     MailBody.Add(sr.Name + ' ins Backup-Verzeichnis (' + Backup + ') verschoben');
     mMeldung.Lines.Add(GetDatum + ' - ' + GetTime + ': Datei(en) kopiert!');
     inc(i);
     SendFiles := True;					

1:

if copy(sr.Name,0,2) <> 'EH' then ...