Perfil de usuario

[einarcito]

hola tengo un problema, aca les dejo una porcion de codigo

Código Delphi [-]

with dm.query1.do begin
      Active := False;
      sql.Add('select * from cuentasusuarios where nombre = nombre and contrasena=contrasena');
      {Asignamos un valor a cada parametro}
        ParamByName('pnombre').Value := editusuario.Text;
        ParamByname('pcontrasena').Value:=editcontrasena.Text;
        Active := true;
      if (recordcount > 0)
         then
           begin
                  showmessage('Usuario y contrasena valido');
                  editusuario.Clear;
                  editcontrasena.Clear;
                  editusuario.SetFocus;
                  end else begin
                  showmessage('invalidos');
                  editusuario.Clear;
                  editcontrasena.Clear;
                  editusuario.SetFocus;
                  end;
          end;     
    
      dm.usuarios.Close;
      dm.usuarios.Open;

es para hacer un login, al principo cunado me logueo me muestra el mensaje pero cuando quiero hacer un segundo login me da error la aplicacion. me podrian decir donde ta el error???