Query1.active:=False;
query1.sql.text:='SELECT * FROM USUARIOS WHERE NOMBREUSUARIO = :USUARIO AND CONTRASEÑA = :CLAVE';
Query1.Parameters[0].Value:=EDIT1.TEXT;
Query1.Parameters[1].Value:=EDIT2.TEXT;
QUERY1.ACTIVE:=TRUE;
If query1.recordcount=1 then
form2.show;