HELP！有关关联文件出的问题

我在做一个登录框模块时，用到了一个记事本存储用户登录帐号与密码，放在与可执行程序相同的目录下，编译能通过，但在登录框中输入帐号与密码并点击确定后，系统弹出信息，说是File not found, 部分代码如下：function TLoginDlg.VerifyAccount: Boolean;
var
  TextFileVar:TextFile;
  sUserName,sPassword,sLine:string;
begin
  Result:=False;
  //关联文件变量
  AssignFile(TextFileVar,ExtractFilePath(Application.ExeName)+'user.txt');
  //指针置文件首行
  Reset(TextFileVar);
  while not eof(TextFileVar) do
  begin
    ReadLn(TextFileVar,sLine);//读出一行到SLine变量中
    sUserName:=Copy(sLine,0,pos('=',sLine)-1);
    sPassword:=copy(sLine,pos('=',sLine)+1,MaxInt);
    //判断输入的ID和密码是否和文件里的一致
    if SameText(sUserName,edit1.Text)and SameText(sPassword,edit2.Text) then
    begin
      ModalResult:=mrOK;
      Break;//如果有匹配的，则跳出
    end;
  end;
  CloseFile(TextFileVar); //关闭文件
  Result:=ModalResult=mrOK; //判断并赋值给结果
end;
是不是这句AssignFile(TextFileVar,ExtractFilePath(Application.ExeName)+'user.txt')出了问题？在用记事本本的地方我很迷惑
高人请指点！