Kopieren will mal und mal nicht

[SaFu]

Hi was mach ich Falsch beim Kopieren von Dateien mal will es und mal nicht

Sind meine Pfad angaben zulang ??

Delphi-Quellcode:

    sPfadNichtOffen:= FileListBox1.FileName;
    sPfadOffen:= (ServerPfad  + sPath_Puplic + ExtractFileName(ShellTreeView1.Path)+'\' + ExtractFileName(FileListBox1.FileName));

    sPfadNichtOffen1:= (ShellTreeView1.SelectedFolder.PathName+'\Bemerkungen\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));
    sPfadOffen1:= (ServerPfad  + sPath_Puplic + ExtractFileName(ShellTreeView1.Path)+'\Bemerkungen\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));

    sPfadNichtOffen2:= (ShellTreeView1.SelectedFolder.PathName+'\Bemerkungen\Bemer2\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));
    sPfadOffen2:= (ServerPfad  + sPath_Puplic + ExtractFileName(ShellTreeView1.Path)+'\Bemerkungen\Bemer2\' + ExtractFileName(ChangeFileExt(FileListBox1.FileName, '.txt')));

oder ist das Kopieren nicht richtig, aber manchmal geht es ja??

Delphi-Quellcode:

begin
  CopyFile(PChar(sPfadNichtOffen), PChar(sPfadOffen),True);
  CopyFile(PChar(sPfadNichtOffen1), PChar(sPfadOffen1),True);
   if CopyFile(PChar(sPfadNichtOffen2), PChar(sPfadOffen2),True)Then
     MessageDlgPos7('Dateien Kopiert',mtInformation,[mbOk],self);
end;

Gruß Sascha