1:
2:

if not CopyFile(PChar(Quellé), PChar(Ziel), true) then 
label1.Caption := 'Fehler beim Kopieren';                    

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

var Quelldatei, Zieldatei, pfad: string;
    i, max, fehler: Integer;
begin
 pfad := ExtractFilePath(Application.ExeName) + 'data/';
 CreateDirectory(PChar(step2.Edit1.Text + '/'), nil );
 for i := 1 to dateiliste.Lines.Count do
  begin
   Quelldatei := dateiliste.Lines.Strings[i-1];
   Zieldatei := step2.Edit1.Text + '/' + Quelldatei;
   if not CopyFile(PChar(pfad + Quelldatei), PChar(Zieldatei), true) then fehler := 1;
   max := 200 div dateiliste.Lines.Count;
   fortschritt.Width := max * i;
  end;
 if fortschritt.Width > 95 then
 begin
  fortschritt.Width := 200;
  exitform.Show;
 end;
end;