Помогите с ошибкой IO 32

[JIK]

Помогите пожалуйста с ошибкой 32. А то я об искал весь этот форум и не нашёл! И на Рамблере и на Гугле искал, но результата не было! Заранее благодарен!

[Квэнди]

файл существует, но используется другим процессом

[JIK]

Ну а как это исправить???

procedure TForm1.Button1Click(Sender: TObject);
var
F1 : TextFile;
Stroka : string;
h : TCaption;
m : TCaption;
F3 : TextFile;
F5 : TextFile;
begin
AssignFile(F1,'save/Hour.nap');
AssignFile(F3,'save/Mens.nap');
AssignFile(F5,'save/Min.nap');
ReWrite(F1);
ReWrite(F3);
ReWrite(F5);
Stroka :=Menssage.Text;
h :=ho.Text;
m :=mi.Text;
WriteLn(F1,H);
WriteLn(F5,m);
WriteLn(F3,Stroka);
CloseFile(F1);
CloseFile(F3);
CloseFile(F5);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Mens : string;
h:string;
m:string;
begin
{1}
AssignFile(F2,'save/Mens.nap');
Reset(F2);
ReadLn(F2,Mens);
Menssage.Text := Mens;
{2}
AssignFile(F6,'save/Hour.nap');
Reset(F6);
ReadLn(F6,h);
ho.Text := h;
{3}
AssignFile(F7,'save/Min.nap');
Reset(F7);
ReadLn(F7,m);
Form1.mi.Text := m;
end;

[JIK]

О... прошу прощения! я просто не дописал код!

CloseFile(F2);
CloseFile(F6);
CloseFile(F7);

[JIK]

Уже без ошибки!