Файл занят другим процессом

[Adonidi]

В общем в чем фишка:
я использую функцию SaveToFile, но когда я использую на несколько файлов по несколько раз, то оно выдает ошибку что занято другим процессом, при этом этот процесс как раз моя программа. как от этого избавиться? помогите!

procedure TForm1.Memo1Change(Sender: TObject);
var i2: integer;
begin
memo1.Lines.SaveToFile('tempdata\'+ form1.ListBox1.Items.ValueFromIndex[a]+'\asd.txt');
end;

procedure TForm1.Memo2Change(Sender: TObject);
begin
memo2.Lines.SaveToFile('tempdata\'+ form1.ListBox1.Items.ValueFromIndex[a]+'\asd1.txt');
end;

[bitSoft]

function IsOpened(FileName : String) : Boolean;
var
 fSt : TFileStream;
begin
Result := False;
if not FileExists(FileName) then Exit;
 try
  fSt := TFileStream.Create(FileName,fmOpenRead);
 except
   Result := True;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if isOpened('c:\pagefile.sys') then ShowMessage('File already openned...');
end;

[Adonidi]

я вставил только функцию, она вроде ничего не меняет, но добавляет еще у себя невозможность получить доступ.

[bitSoft]

if isOpened(blabla) then Exit;  // Выход, если файл занят

[Adonidi]

это все равно не работает... ну в принципе я уже разобрался - оно записывало в другие файлы, из которых одновременно читало.