TFileStream *OldFile = new TFileStream(FromFile, fmOpenRead);
    //
    try
      {
      TFileStream *NewFile = new TFileStream(DestFile, fmCreate);
        //
        try
          {
            try
              {
              NewFile->CopyFrom(OldFile, OldFile->Size);
              }
            catch (Exception &E)
              {
              result = true;
              }
            catch (...)
              {
              result = true;
              }
          LabelFortschrittVon->Caption  = FromFile;
          LabelFortschrittNach->Caption = DestFile;
          ProgressBar1->Position += 1;
          Application->ProcessMessages();
          }
        __finally
          {
          delete NewFile;
          }
      }
   __finally
      {
      delete  OldFile;
      }

bekomme bei schreibgeschützten Dateien eine Fehlermeldung " Datei kann nicht erstellt werden". Muß ich vor dem kopieren solcher Dateien den Schreibschutz aufheben, und danach wieder setzen ?
bis bald
dieleena

Im Prinzip ja. Du könntest diese Dateien auch vorher löschen. Man sollte sich aber auch immer fragen warum die Dateien einen Schreibschutz haben.
Du solltest dir vielleicht auch mal CopyFile anschauen.

CopyFile ist hier nützlicher als mein CopyFrom.

bis bald
dieleena