Tu consulta siempre devolverá true, estás comparando un campo con su mismo valor!!!
cambia:
Código SQL
[-]
ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre=idnombre and contrasenia=contrasenia');
por
Código SQL
[-]
ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre='+ quotedStr(idnombre) +' and contrasenia='+quotedStr(contrasenia) );