Validacion de usuarios

[Maury Manosalva]

Código Delphi [-]
with QryConsultas do
   begin
   close;
   SQL.Clear;
   consulta := 'Select * from TabUsuarios where IdUsuario ='+char(39)+ txtUsuario.Text+char(39)+
   'and ConUsuario ='+chr(39) + txtcontrasena.Text+char(39);
   valor := txtUsuario.Text;
   SQL.Add(consulta);
   Open;
   If (RecordCount=1) then

si es igual a 1 pasa a lo que quieres que haga, de lo contrario un application.terminate