[Schwarzrabe]

Есть небольшая "фенька":

procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);
Var f1:TextFile;
n:String;

begin
n:=ExtractFilePath(ParamStr(0));
n:=Concat(n,'SYS.db');
if FileExists(n)=false then FileCreate(n);
AssignFile(f1,n);
Reset(f1);
end;

Проблема: если файл создаётся, то пишет ошибку I/OError=32. Перезапускаю - файл открывается нормально. В чём дело, что за фишка?