У меня такая же фигня.
Когда запускается моё приложение ищется файл, если файл найден, то читает от туда и потом удаляет его (файл), а при выходе должен сохранять в файл. до определённого момент всё работало нормально, но потом всё отрубило, ну ни как не могу справиться с этой ошибкой. Я попробовал вот такую вещь:
Код:
if FileExists(GetCurrentDir + '\' + FileUs) = true then DeleteFile(GetCurrentDir + '\' + FileUs);
AssignFile(UsersFile, GetCurrentDir + '\' + FileUs);
{$I-}
Rewrite(UsersFile);
{$I+}
if IOResult <> 0 then
begin
CloseFile(UsersFile);
AssignFile(UsersFile, GetCurrentDir + '\' + FileUs);
Reset(UsersFile);
Append(UsersFile);
Файл то он создаёт, но отказывается писать в него, почему так?