Не открывает файл для чтения (I/O Error 32)

[Dexes]

В FormCreate прописан следующий текст

  if not FileExists(S+TDUsers+TFPosts) then
    begin
      AssignFile(FPosts, S+TDUsers+TFPosts);
      ReWrite(FPosts);
      CloseFile(FPosts);
    end;

Где TDUsers и TFPosts - глобальные константы
При выполнении следующего кода

var
  S, Post: string;
  B: boolean;   
begin
  S := ExtractFileDir(ParamStr(0))+'\';
  AssignFile(FPosts, S+TDUsers+TFPosts);
  { (!!!) Append(FPosts);
  Writeln(FPosts, '111');
  CloseFile(FPosts); (!!!) }
  Reset(FPosts);
  B := false;

  //Проверка на существование строки в файле
  while not eof(FPosts) do
    begin
      readln(FPosts, Post);
      if Post = ComboBox1.Text then
        B := true;
    end;

  //Если ComboBox1.Text нет в файле
  //добавляем строку
  if B = false then
    begin
      CloseFile(FPosts);
      showmessage(S);
      Append(FPosts);
      Writeln(FPosts, ComboBox1.Text);
    end;
  CloseFile(FPosts);
end;

Выползает ошибка I/O error 32 на строке где Append.
В чем может быть дело? Файл другими приложениями не используется, он создается при запуске программы.
Кстати на том Append'е который в каментах та же самая ошибка выползала.

[NetSpace]

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

[Dexes]

2 NetSpace,
процедура с чтением файла висит не на FormCreate, а на клике кнопки.
при отладке (прогоне процедуры по F8 все записи читаются и файл не открывается именно для дозаписи, то есть Reset который выше файл открывает и отлично его читает, да и если бы не было файла ошибка была бы другой
'File not found'
Прикладываю ссылку на файл, дабы облегчить понимание
Облегченная версия программы тут
Ошибка происходит при регистрации.
P.S. NetSpace, спасибо за попытку)))

ADD

{ (!!!) Append(FPosts);
Writeln(FPosts, '111');
CloseFile(FPosts); (!!!) }
этот кусок в выложенной проге не закаменчен

[GunSmoker]

32 = ERROR_SHARING_VIOLATION = The process cannot access the file because it is being used by another process.

Ты файл сам же и заблокировал. У тебя в TForm1.ReadPosts файл не закрывается.

Вообще, рекомендую использовать try/finally. И добавить обработку ошибок.

[Dexes]

2 GunSmoker, спасибо!)