Kopieren geht net

[SaFu]

Hi leute

Warum geht meine kopier procedure nicht
Ist doch richtig so

Delphi-Quellcode:

procedure TForm1.kopierenstartmenue;
var  AlterPfad,NeuerPfad :string;
 begin
  AlterPfad:= ExtractFilePath(ParamStr(0))+ ('Dateisysconfs\SYSCONF.S');
  NeuerPfad:=('C:\Dokumente und Einstellungen\Praxis\Startmenü');

 if not FileExists(NeuerPfad) then
  begin
   CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);
  end

 else
  MessageDlgPos('Datei Existiert bereits im Ordner',mtInformation,[mbOk],0,350,300);
 end;