I/O error 32 (Не закрывается текстовый файл)

[TaYgA]

Здравствуйте, при компеляции моего проекта вылетает ошибка I/O error 32... В инете прочитал, что она возникает в том случаи если вызвать текстовый файл и не закрыв его вызвать повторно. Уже раз десять прошёлся по коду в доль и по перёк, файл я закрываю, но всё равно вылетает ошибка... В Form1 на кнопку имеется такой код:

  l:=False;
  AssignFile(f,extractfilepath(paramstr(0))+'admission');
  Reset(f);
  while not Eof(f) do begin
    Readln(f,adm);
    if (Label.Caption=adm)  then begin
      l:=True;
      Form2.ShowModal;
      break;
    end;
  end;
  CloseFile(f);
.........................

В Form2 опять вызывается этот файл:

...................................
  if rbFull.Checked=True then begin
    AssignFile(f,extractfilepath(paramstr(0))+'admission');
    Append(f);
    Writeln(f,Edit1.Text);
    CloseFile(f);
  end;
..................................

Delphi постоянно ругается на строчку Append(f); выдавая эту ошибку

[p51x]

 Reset(f);

- раз открыли

Append(f);

- два открыли

она возникает в том случаи если вызвать текстовый файл и не закрыв его вызвать повторно

[TaYgA]

p51x, не понял что этим Вы хотели сказать... В Form1 я открываю файл для чтения

 Reset(f);

после чего в этой же форме его закрываю командой

CloseFile(f);

после того как я файл закрыл в Form1, я его отурываю для записи в Form2

Append(f);

[Олвин]

У вас Form2.ShowModal; до CloseFile, значит вы его открываете повторно, что приводит к ошибке.