ошибка в сохранении в файл

[Лонли-Локли]

Помогите вот код, почему не работает хз.

procedure TForm1.Button2Click(Sender: TObject);
type trec = record
namb:string[10];
sum:string[10];
kode:string[10];
tp:string[2];
end;
Var files: file of trec;
rec:trec;
PR:integer;
begin
For PR:= 0 to Namber.Lines.Count+1 do
with rec do
begin
rec.namb:=Namber.Lines.Strings[PR];
rec.sum:=Summa.Lines.Strings[PR];
rec.kode:=Kod.Lines.Strings[PR];
rec.tp:=tip.Lines.Strings[PR];
end;
AssignFile (files, 'STR.txt');
write(files, rec);
CloseFile(files);

end;

пишет

File access denied

Что делать? Код должен сохранять запись в файл.

[Consol]

после AssignFile (files, 'STR.txt'); надо написать rewrite(files);