Problem mit schreibgeschützen Dateien beim Kopieren

[Helmi]

Hallo,

ich hab folgendes Problem:

Ich kopiere mit dem untenstehenden Code Dateien und zeige den Zustand in einer Progressbar an.
Das funktioniert ganz gut, aber wenn ich schreibgeschützte Dateien kopieren will, dann bekomm ich einen Fehler bei " reset(FromF);"


Was kann das sein?

mfg
Helmi

Code:

procedure TForm1.CopyFileWithProgressBar(Source, Destination: string;
      ProgressBar: TProgressBar; sameDateTime: Boolean);
var
  FromF, ToF: file of byte;
  Buffer: array[0..51200] of char;
  NumRead: integer;
  FileLength: longint;

begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);

  with ProgressBar do
    begin
      Position  := 0;

      Min       := 0;
      Max       := FileLength;

      while FileLength > 0 do
        begin
          BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
          FileLength  := FileLength - NumRead;

          BlockWrite(ToF, Buffer[0], NumRead);

          Position    := Position + NumRead;
        end;

      CloseFile(FromF);
      CloseFile(ToF);

      If sameDateTime then
        FileSetDate(Destination, FileAge(Source));
    end;
end;