[*Caro*]

Hola de nuevo, así a simple vista te falta hacer Clear de lo que tienes en tu propiedda Sql.

Código Delphi [-]
with dm.query1.do begin
      Active := False;
      sql.Clear;
      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;

Saluditos