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:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
var
  Search   : TSearchRec;
  Verz     : String;
  Liste    : TStringList;
  Schleife : integer;
begin
  Verz := 'L:\';
  Liste := TStringList.Create;
  try
    if FindFirst(Verz + '*.*', faAnyFile, Search) = 0 then
      try
        repeat
          if (Search.Attr and faArchive) = faArchive then
            Liste.Add(Verz + Search.Name);
        until
          FindNext(Search) <> 0;
      finally
        SysUtils.FindClose(Search);
      end;
    for Schleife := 0 to Liste.Count - 1 do
      begin
        // Hier könnte man die Datei umkopieren.
        FileSetAttr(Liste.Strings[Schleife],
          FileGetAttr(Liste.Strings[Schleife]) and not faArchive);
      end;
  finally
    Liste.Free;
  end;
  Label1.Caption := 'fertig';
end;