Kopieren will mal und mal nicht

[SaFu]

Delphi-Quellcode:

  if (not(FileExists(sPfadOrdnerOeffentlich))) then
   // Falls Plan nicht Veröffentlicht
   if MessageDlgPos7('Wollen Sie die Datei Kopieren',mtInformation,[mbNo,mbYes],self) = mrYes then
    begin
     Label6.Caption:= sPfadNichtOffen2;
     Label22.Caption:= sPfadOffen2;
     Windows.CopyFile(PChar(sPfadNichtOffen), PChar(sPfadOffen),False);
     Windows.CopyFile(PChar(sPfadNichtOffen1), PChar(sPfadOffen1),False);
     ShowMessage(SysErrorMessage(GetLastError));
     if Windows.CopyFile(PChar(sPfadNichtOffen2), PChar(sPfadOffen2),False)then

     begin
      MessageDlgPos7('Datei Kopiert',mtInformation,[mbOk],self);
     end;