Ошибка перезаписи в файл

[sqr]

Вылетает ошибка во время выполнения программы при попытке перезаписать файл: File Access Denied
Останавливается на строчке rewrite(fl);
Процедура которая создает типизированный файл:

procedure Tform1.RecFile;
begin
GetDir(3, DirName); //находим адрес диска
//проверяем существует ли файл
if not FileExists(DirName+'records.sndrcd') then
begin
assignfile(fl,DirName+'records.sndrcd');
rewrite(fl);
for i:=0 to 9 do
  begin
    mr[i].name:='Игрок';
    mr[i].score:=0;
    write(fl,mr[i]);
  end;
FileSetAttr(DirName+'records.sndrcd',FaHidden);
closefile(fl);
end
//Если файл существует, тогда считываем с него информацию
else begin
assignfile(fl,DirName+'records.sndrcd');
reset(fl);
for i:=0 to 9 do
  read(fl,mr[i]);
closefile(fl);
end;
end;

Процедура перезаписи этого же файла

procedure TForm1.RecSave;
begin
assignfile(fl,DirName+'records.sndrcd');
rewrite(fl);
for i:=0 to 9 do
    write(fl,mr[i]);
FileSetAttr(DirName+'records.sndrcd',FaHidden);
closefile(fl);
end;

[Slym]

как структуру mr описал?

[sqr]

type Trec=record
name:string[30];
score:integer;
end;

var
mr:array[0..9]of Trec;

[Slym]

я ошибки не вижу... если только попытка писать в корень системного диска или иное системное место
не люблю я паскалевский file, современней на TFileStream

[sqr]

Разобрался уже. Файл невозможно было изменить из за атрибута "скрытый".
Решил данную проблему путем изменения атрибута на обычный на время записи в файл, потом опять устанавливается скрытый.

[Slym]

тоже самое на стреме
и хаден никак не влияем

type
  Trec=packed record
    name:string[30];
    score:integer;
  end;
const
  RecFileName='records.sndrcd';
var Mr:array[0..9]of Trec;

procedure Save(const Dir:string);
var Stream:TFileStream;
begin
  Stream:=TFileStream.Create(Dir+RecFileName,fmCreate);
  try
    Stream.WriteBuffer(Mr,SizeOf(Mr));
  finally
    Stream.Free;
  end;
  FileSetAttr(Dir+RecFileName,FaHidden);
end;

procedure Load(const Dir:string);
var
  Stream:TFileStream;
  i: integer;
begin
  if FileExists(Dir+RecFileName) then
  begin
    Stream:=TFileStream.Create(Dir+RecFileName,fmOpenRead);
    try
      Stream.ReadBuffer(Mr,SizeOf(Mr));
    finally
      Stream.Free;
    end;
  end else
  begin
    for i:=low(mr) to high(mr) do
    begin
      mr[i].name:='Èãðîê';
      mr[i].score:=0;
    end;
    Save(Dir);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Load('D:\');
end;