[ '(' erwartet, aber ';' gefunden ] nach CopyFile

[Muetze1]

Hier nochmal start vereinfacht:

Delphi-Quellcode:

procedure start;
begin
  MsgDlg1:= MessageDlg('Backup Anlegen ?', mtConfirmation, [mbYes, mbNo], 0);

  if MsgDlg1= mrYes then
  begin
    namen;

    if not DirectoryExists('bak') then 
      mkdir('bak');
  end;

  upd;
end;