Проблема открытия файла

[kvg_ua]

У меня возникла проблема при работе с файлами. При нажатии кнопки программа открывает текстовый файл (filename) для считывания, считывает находящуюся в нем информацию и переписывает ее в файл filename.bak. Затем программа должна открыть файл filename для перезаписи и записать в него новую информацию. Но на этом месте программа выдает сообщение "I/O error 32". Помогите, пожалуйста, найти ошибку.

procedure TForm4.command1Click(Sender: TObject);
begin
    filename := Text1.Text;
    assignfile(f, filename);
    reset(f);
    read(f, n, numtheme); readln(f, nametheme);
    For i := 1 To n do
      begin
        readln(f, numqu[i]);
        readln(f, question[i]);
        readln(f, var1[i]);
        readln(f, var2[i]);
        readln(f, var3[i]);
        readln(f, var4[i]);
      end;
    For i := 1 To n do
        readln(f, at[i]);
    Closefile(f);
    num := 1;
    Text4.Text := nametheme;
    Text9.Text := inttostr(n);
    Text8.Text := inttostr(numqu[num]);
    Text2.Text := question[num];
    Text3.Text := var1[num];
    Text5.Text := var2[num];
    Text6.Text := var3[num];
    Text7.Text := var4[num];
    filename := inttostr(numtheme) + '.bak';
    assignfile(f, filename);
    rewrite(f);
        write(f, n, ' ', numtheme, ' '); writeln(f, nametheme);
        For i := 1 To n do
          begin
            writeln(f, numqu[i]);
            writeln(f, question[i]);
            writeln(f, var1[i]);
            writeln(f, var2[i]);
            writeln(f, var3[i]);
            writeln(f, var4[i]);
          end;
        For i := 1 To n do
            writeln(f, at[i]);
    Closefile(f);

    filename := inttostr(numtheme);
    assignfile(f, filename);
    append(f);
      write(f, '');
    closefile(f);
end;

[unbanned]

сначала закрыть его надо
по видимому в тот момент он еще используется

[kvg_ua]

Так я его закрыл - Closefile(f);

[unbanned]

ну 32я ошибка значит что файл используется
попробуй записывать в f2...

assignfile(f2, filename);
    rewrite(f2);

[kvg_ua]

Сообщение от unbanned

ну 32я ошибка значит что файл используется
попробуй записывать в f2...

assignfile(f2, filename);
    rewrite(f2);

Попробовал - результат тот же. Я пробовал удалить файл через проводник при запущенной программе - появляется сообщение о том, что файл нельзя удалить так как он занят другой программой. Удалить его удается только после закрытия программы

[kvg_ua]

Все! проблема решена!
Дело в том, что в событии OnCreate у меня был такой код

   assignfile(f, filename);
   {$I-}
   reset(f);
   {$I+}
   if ioresult<>0 then n11.Visible:=false;

Таким образом я открыл файл для считывания, и он остался открытым. Отсюда и ошибка при попытке удаления или перезаписи данного файла. Я понимаю, что использовать выше указанный код для проверки существования файла глупо, но тогда я еще не подозревал о существовании функции FileExists. После замены приведенного кода на

if not(FileExists(filename)) then n11.Visible:=false;

ошибка исчезла и все заработало